home *** CD-ROM | disk | FTP | other *** search
/ The Net Power 1996 May / Net Power CD-ROM (Imagine Publishing)(1996-05).bin / winshare / amiweb / htmlmacs.sam (.txt) < prev    next >
Encoding:
Ami Pro/Word Pro document  |  1995-10-05  |  81.9 KB  |  1,259 lines
  1. [ver]
  2. [sty]
  3. [files]
  4. [charset]
  5.     ANSI (Windows, IBM CP 1252)
  6. [revisions]
  7. [docvars]
  8.     Destination=d:\docs\html\aim\kr\
  9. [prn]
  10.     PostScript Printer
  11. [port]
  12.     FILE:
  13. [lang]
  14. [fldnames]
  15.     Field1
  16.     Field2
  17.     Field3
  18.     Field4
  19.     Field5
  20.     Field6
  21.     Field7
  22.     Field8
  23. [desc]
  24.     812913767
  25.     784999827
  26. [fopts]
  27. [lnopts]
  28.     Body Text
  29. [docopts]
  30. [GramStyle]
  31. [tag]
  32.     Body Text
  33.     [fnt]
  34.         Arial MT
  35.         240
  36.         16384
  37.     [algn]
  38.         216
  39.     [spc]
  40.         273
  41.         100
  42.     [brk]
  43.     [line]
  44.     [spec]
  45.     [nfmt]
  46.         272
  47.         </c>
  48.     Body Text
  49. [tag]
  50.     Body Single
  51.     [fnt]
  52.         TimesNewRomanPS
  53.         200
  54.         49152
  55.     [algn]
  56.     [spc]
  57.         273
  58.         100
  59.     [brk]
  60.     [line]
  61.     [spec]
  62.     [nfmt]
  63.         272
  64.         </c>
  65.     Body Single
  66. [tag]
  67.     Function
  68.     [fnt]
  69.         Arial MT
  70.         200
  71.         16385
  72.     [algn]
  73.     [spc]
  74.         244
  75.         100
  76.     [brk]
  77.     [line]
  78.     [spec]
  79.     [nfmt]
  80.         272
  81.         </c>
  82.     Body Text
  83. [lay]
  84.     Standard
  85.     [rght]
  86.         16833
  87.         11908
  88.         1440
  89.         1440
  90.         1656
  91.         1440
  92.         1440
  93.         10465
  94.         720
  95.         1440
  96.         2160
  97.         2880
  98.         3600
  99.         4320
  100.         5040
  101.         5760
  102.         6480
  103.         7200
  104.         7920
  105.         8640
  106.     [hrght]
  107.     [lyfrm]
  108.         11200
  109.         11908
  110.         1656
  111.         1 0 0 0 0 0 0
  112.     [frmlay]
  113.         1656
  114.         11908
  115.         1440
  116.         648
  117.         1440
  118.         1440
  119.         10465
  120.         9360
  121.     [txt]
  122. HTML Macros by Steve Belleguelle November 1994                             Page 
  123. <:P10,0,>
  124. Nottingham University, England
  125. EMail: sbx@cs.nott.ac.uk
  126.     [frght]
  127.     [lyfrm]
  128.         13248
  129.         15393
  130.         11908
  131.         16833
  132.         1 0 0 0 0 0 0
  133.     [frmlay]
  134.         16833
  135.         11908
  136.         1440
  137.         792
  138.         15465
  139.         1440
  140.         1440
  141.         10465
  142.         4680
  143.         9360
  144.     [txt]
  145. [elay]
  146.     36 0 29 512 0 0 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  147.     93 0 115 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  148.     133 0 29 512 0 0 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  149.     188 0 52 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  150.     236 0 29 512 0 0 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  151.     293 0 24 0 0 0 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  152.     314 0 29 512 0 0 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  153.     369 0 10 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  154.     370 0 29 512 0 0 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  155.     426 0 0 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  156.     440 0 29 512 0 0 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  157.     451 0 5 512 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  158.     485 0 29 512 0 0 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  159.     530 58 22 32 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  160.     558 0 29 512 0 0 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  161.     615 0 55 0 0 1 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  162.     665 0 41 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  163.     692 0 26 512 0 0 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  164.     748 0 115 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  165.     761 0 5 512 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  166.     813 0 41 512 0 0 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  167.     869 0 24 0 0 0 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  168.     888 0 29 512 0 0 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  169.     945 0 61 0 0 0 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  170.     978 0 15 512 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  171.     1030 0 54 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  172.     1042 0 36 512 0 0 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  173.     1066 0 39 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  174. [edoc]
  175. <:#240,9025><:f200,2Times New Roman,255,0,0>'Function called when creating a new HTML document
  176. <:#240,9025><:f200,2Times New Roman,>
  177. <:#240,9025><:f200,2Times New Roman,>FUNCTION CreateHTML()
  178. <:#240,9025><:f200,2Times New Roman,>
  179. <:#240,9025><:f200,2Times New Roman,>MacFile=GetRunningMacroFile$()
  180. <:#240,9025><:f200,2Times New Roman,>Slash=0
  181. <:#240,9025><:f200,2Times New Roman,>FOR i=LEN(MacFile) to 1 STEP -1
  182. <:#240,9025><:f200,2Times New Roman,>  IF((MID$(MacFile, i, 1) = "\")AND(Slash=0))  Slash=i
  183. <:#240,9025><:f200,2Times New Roman,>  ENDIF
  184. <:#240,9025><:f200,2Times New Roman,>NEXT
  185. <:#240,9025><:f200,2Times New Roman,>IF Slash<<<;>0
  186. <:#240,9025><:f200,2Times New Roman,>  Temp=RIGHT$(MacFile, LEN(MacFile)-Slash)
  187. <:#240,9025><:f200,2Times New Roman,>  MacFile=Temp
  188. <:#240,9025><:f200,2Times New Roman,>ENDIF
  189. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!InitHTML"<:f>
  190. <:#240,9025><:f200,2Times New Roman,>AssignMacroToFile("{MacFile}!InitHTML", "{MacFile}!CloseHTML", 6)
  191. <:#240,9025><:f200,2Times New Roman,>CALLI Macro()
  192. <:#240,9025><:f200,2Times New Roman,>box=DialogBox("." "ADDTITLE")
  193. <:#240,9025><:f200,2Times New Roman,> IF box <<<;>1
  194. <:#240,9025><:f200,2Times New Roman,> Exit Function
  195. <:#240,9025><:f200,2Times New Roman,>ENDIF
  196. <:#240,9025><:f200,2Times New Roman,>Title$=GetDialogField$(8000)
  197. <:#240,9025><:f200,2Times New Roman,>HeaderFooter(1)
  198. <:#240,9025><:f200,2Times New Roman,>Type("<[>Tab]{Title$}")
  199. <:#240,9025><:f200,2Times New Roman,>Type("<[>CtrlHome]")
  200. <:#240,9025><:f200,2Times New Roman,>
  201. <:#240,9025><:f200,2Times New Roman,>END FUNCTION
  202. <:#240,9025><:f200,2Times New Roman,>
  203. <:#240,9025><:f200,2Times New Roman,>DIALOG    ADDTITLE
  204. <:#240,9025><:f200,2Times New Roman,>-2134900736    4    78    55    160    90    ""    ""    "Document Title"
  205. <:#240,9025><:f200,2Times New Roman,>15    18    127    12    8000    1350631552    "edit"    ""    0 
  206. <:#240,9025><:f200,2Times New Roman,>15    8    82    10    1000    1342177280    "static"    "Enter Title of Document:"    0 
  207. <:#240,9025><:f200,2Times New Roman,>16    54    40    14    1    1342373889    "button"    "OK"    0 
  208. <:#240,9025><:f200,2Times New Roman,>100    55    40    14    2    1342373888    "button"    "Cancel"    0 
  209. <:#240,9025><:f200,2Times New Roman,>END DIALOG<:f>
  210. <:f200,2Times New Roman,><:p<* >>
  211. <:#240,9025><:f200,2Times New Roman,255,0,0>'Function called when opening an existing HTML document<:f>
  212. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************
  213. <:#240,9025><:f200,2Times New Roman,>FUNCTION InitHTML()
  214. <:#240,9025><:f200,2Times New Roman,>
  215. <:#240,9025><:f200,2Times New Roman,>NumGlobs = GetGlobalVarCount()
  216. <:#240,9025><:f200,2Times New Roman,>IF NumGlobs<;>0
  217. <:#240,9025><:f200,2Times New Roman,> DIM TempArray(Numglobs)
  218. <:#240,9025><:f200,2Times New Roman,> GetGlobalVarNames(&TempArray)
  219. <:#240,9025><:f200,2Times New Roman,> Active=0
  220. <:#240,9025><:f200,2Times New Roman,> FOR i = 1 to NumGlobs
  221. <:#240,9025><:f200,2Times New Roman,>   IF TempArray(i)="HTMLActive" Active=1
  222. <:#240,9025><:f200,2Times New Roman,>   ENDIF
  223. <:#240,9025><:f200,2Times New Roman,> NEXT
  224. <:#240,9025><:f200,2Times New Roman,> IF Active=1   
  225. <:#240,9025><:f200,2Times New Roman,>   N=GetGlobalVar$("HTMLDocs")
  226. <:#240,9025><:f200,2Times New Roman,>   N=N+1
  227. <:#240,9025><:f200,2Times New Roman,>   SetGlobalVar("HTMLDocs", N)
  228. <:#240,9025><:f200,2Times New Roman,>   EXIT FUNCTION
  229. <:#240,9025><:f200,2Times New Roman,> ENDIF
  230. <:#240,9025><:f200,2Times New Roman,>ENDIF
  231. <:#240,9025><:f200,2Times New Roman,>AllocGlobalVar("HTMLDir",1)<:f>
  232. <:#240,9025><:f200,2Times New Roman,>AllocGlobalVar("HTMLActive", 1)
  233. <:#240,9025><:f200,2Times New Roman,>AllocGlobalVar("HTMLDocs", 1)
  234. <:#240,9025><:f200,2Times New Roman,>SetGlobalVar("HTMLDocs", 1)
  235. <:#240,9025><:f200,2Times New Roman,>CALL InitHREFTable()
  236. <:#240,9025><:f200,2Times New Roman,>CALL InitImageTable()<:f>
  237. <:#240,9025><:f200,2Times New Roman,>CALL InitHotKeys()
  238. <:#240,9025><:f200,2Times New Roman,>CALL InitMenus()
  239. <:#240,9025><:f200,2Times New Roman,>TEMP$= GetProfileString$("HTML", "HTMLDir", "AMIPRO.INI")<:f>
  240. <:#240,9025><:f200,2Times New Roman,>IF TEMP$="" 
  241. <:#240,9025><:f200,2Times New Roman,>  TEMP$=GetDocPath$()
  242. <:#240,9025><:f200,2Times New Roman,>ENDIF
  243. <:#240,9025><:f200,2Times New Roman,>SetGlobalVar("HTMLDir",TEMP$)
  244. <:#240,9025><:f200,2Times New Roman,>CALL AddVariable("ConvertDialog")<:f>
  245. <:#240,9025><:f200,2Times New Roman,>CALL AddVariable("HTMLNetScape")
  246. <:#240,9025><:f200,2Times New Roman,>CALL AddVariable("<:f><:f200,2Times New Roman,>BRClear")<:f>
  247. <:#240,9025><:f200,2Times New Roman,>CALL AddVariable("<:f><:f200,2Times New Roman,>HRThick")<:f>
  248. <:#240,9025><:f200,2Times New Roman,>CALL AddVariable("<:f><:f200,2Times New Roman,>HRAlign")<:f>
  249. <:#240,9025><:f200,2Times New Roman,>CALL AddVariable("<:f><:f200,2Times New Roman,>HRWidth")<:f>
  250. <:#240,9025><:f200,2Times New Roman,>CALL AddVariable("<:f><:f200,2Times New Roman,>HRShade")<:f>
  251. <:#240,9025><:f200,2Times New Roman,>CALL AddVariable("<:f><:f200,2Times New Roman,>AuthNoComma")<:f>
  252. <:#240,9025><:f200,2Times New Roman,>CALL AddVariable("<:f><:f200,2Times New Roman,>AuthNoRule")<:f>
  253. <:#240,9025><:f200,2Times New Roman,>CALL AddVariable("ImgHSPACE")
  254. <:#240,9025><:f200,2Times New Roman,>CALL AddVariable("ImgVSPACE")<:f>
  255. <:#240,9025><:f200,2Times New Roman,>CALL AddVariable("ImgWIDTH")
  256. <:#240,9025><:f200,2Times New Roman,>CALL AddVariable("ImgHEIGHT")<:f>
  257. <:#240,9025><:f200,2Times New Roman,>CALL AddVariable("ImgBORDER")
  258. <:#240,9025><:f200,2Times New Roman,>
  259. <:#240,9025><:f200,2Times New Roman,>END FUNCTION
  260. <:#240,9025><:f200,2Times New Roman,>
  261. <:#240,9025><:f200,2Times New Roman,>FUNCTION AddVariable(Name)
  262. <:#240,9025><:f200,2Times New Roman,>AllocGlobalVar(Name,1)
  263. <:#240,9025><:f200,2Times New Roman,>TEMP$= GetProfileString$("HTML", Name, "AMIPRO.INI")<:f>
  264. <:#240,9025><:f200,2Times New Roman,>SetGlobalVar(Name,TEMP$)<:f>
  265. <:#240,9025><:f200,2Times New Roman,>END FUNCTION
  266. <:#240,9025><:f200,2Times New Roman,>
  267. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  268. <:#240,9025><:f200,2Times New Roman,>
  269. <:#240,9025><:f200,2Times New Roman,>FUNCTION InitHREFTable()
  270. <:#240,9025><:f200,2Times New Roman,>AllocGlobalVar("PastURLs",10)
  271. <:#240,9025><:f200,2Times New Roman,>I= 1 
  272. <:#240,9025><:f200,2Times New Roman,>Continue=1
  273. <:#240,9025><:f200,2Times New Roman,>WHILE (Continue=1)
  274. <:#240,9025><:f200,2Times New Roman,>  Name$="URL{I}"
  275. <:#240,9025><:f200,2Times New Roman,>  URL= GetProfileString$("HTML", Name$, "AMIPRO.INI")
  276. <:#240,9025><:f200,2Times New Roman,>  IF URL="" SetGlobalArray("PastURLs",I,"")
  277. <:#240,9025><:f200,2Times New Roman,>  ELSE SetGlobalArray("PastURLs",I,URL)
  278. <:#240,9025><:f200,2Times New Roman,>  ENDIF
  279. <:#240,9025><:f200,2Times New Roman,>  I=I+1
  280. <:#240,9025><:f200,2Times New Roman,>  IF I<;>10 Continue=0
  281. <:#240,9025><:f200,2Times New Roman,>  ENDIF
  282. <:#240,9025><:f200,2Times New Roman,>WEND
  283. <:#240,9025><:f200,2Times New Roman,> 
  284. <:#240,9025><:f200,2Times New Roman,>end function<:f>
  285. <:#240,9025><:f200,2Times New Roman,>
  286. <:#240,9025><:f200,2Times New Roman,>
  287. <:#240,9025><:f200,2Times New Roman,>
  288. <:#240,9025><:f200,2Times New Roman,>
  289. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  290. <:#240,9025><:f200,2Times New Roman,>
  291. <:#240,9025><:f200,2Times New Roman,>FUNCTION InitImageTable()
  292. <:#240,9025><:f200,2Times New Roman,>AllocGlobalVar("PastImages",10)
  293. <:#240,9025><:f200,2Times New Roman,>I= 1 
  294. <:#240,9025><:f200,2Times New Roman,>Continue=1
  295. <:#240,9025><:f200,2Times New Roman,>WHILE (Continue=1)
  296. <:#240,9025><:f200,2Times New Roman,>  Name$="IMAGE{I}"
  297. <:#240,9025><:f200,2Times New Roman,>  URL= GetProfileString$("HTML", Name$, "AMIPRO.INI")
  298. <:#240,9025><:f200,2Times New Roman,>  IF URL="" SetGlobalArray("PastImages",I,"")
  299. <:#240,9025><:f200,2Times New Roman,>  ELSE SetGlobalArray("PastImages",I,URL)
  300. <:#240,9025><:f200,2Times New Roman,>  ENDIF
  301. <:#240,9025><:f200,2Times New Roman,>  I=I+1
  302. <:#240,9025><:f200,2Times New Roman,>  IF I<;>10 Continue=0
  303. <:#240,9025><:f200,2Times New Roman,>  ENDIF
  304. <:#240,9025><:f200,2Times New Roman,>WEND
  305. <:#240,9025><:f200,2Times New Roman,> 
  306. <:#240,9025><:f200,2Times New Roman,>end function<:f>
  307. <:f200,2Times New Roman,><:p<* >>
  308. <:#240,9025><:f200,2Times New Roman,255,0,0>'Functions to set up Hotkeys and menus<:f>
  309. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  310. <:#240,9025><:f200,2Times New Roman,>
  311. <:#240,9025><:f200,2Times New Roman,>FUNCTION InitHotKeys()
  312. <:#240,9025><:f200,2Times New Roman,>
  313. <:#240,9025><:f200,2Times New Roman,>MacFile=GetRunningMacroFile$()
  314. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddHREF"<:f>
  315. <:#240,9025><:f200,2Times New Roman,>OnKey(<[>ctrlshifth], "", Macro)
  316. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddName"<:f>
  317. <:#240,9025><:f200,2Times New Roman,>OnKey(<[>ctrlshiftn], "", Macro)
  318. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddImage"<:f>
  319. <:#240,9025><:f200,2Times New Roman,>OnKey(<[>ctrlshifti], "", Macro)
  320. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddAddress"<:f>
  321. <:#240,9025><:f200,2Times New Roman,>OnKey(<[>ctrlshifta], "", Macro)<:f>
  322. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddRule"<:f>
  323. <:#240,9025><:f200,2Times New Roman,>OnKey(<[>ctrlshiftr], "", Macro)<:f>
  324. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddBreak"<:f>
  325. <:#240,9025><:f200,2Times New Roman,>OnKey(<[>ctrlshiftb], "", Macro)<:f>
  326. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!ConvertFile"<:f>
  327. <:#240,9025><:f200,2Times New Roman,>OnKey(<[>ctrlshiftc], "", Macro)<:f>
  328. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddAuthor"<:f>
  329. <:#240,9025><:f200,2Times New Roman,>OnKey(<[>ctrlshifta], "", Macro)<:f>
  330. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!Options"<:f>
  331. <:#240,9025><:f200,2Times New Roman,>OnKey(<[>ctrlshifto], "", Macro)<:f>
  332. <:#240,9025><:f200,2Times New Roman,>'Macro="{MacFile}!TestDoc"<:f>
  333. <:#240,9025><:f200,2Times New Roman,>'OnKey(<[>ctrlshiftt], "", Macro)<:f>
  334. <:f200,2Times New Roman,><:f><:f200,2Times New Roman,><:f200,2Times New Roman,>Macro="{MacFile}!BackGround"<:f>
  335. <:f200,2Times New Roman,>OnKey(<[>F12], "", Macro)<:f>
  336. <:f200,2Times New Roman,>
  337. <:#240,9025><:f200,2Times New Roman,>END FUNCTION
  338. <:#240,9025><:f200,2Times New Roman,>
  339. <:#240,9025><:f200,2Times New Roman,>
  340. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  341. <:#240,9025><:f200,2Times New Roman,>
  342. <:#240,9025><:f200,2Times New Roman,>FUNCTION InitMenus()
  343. <:#240,9025><:f200,2Times New Roman,>
  344. <:#240,9025><:f200,2Times New Roman,>MacFile=GetRunningMacroFile$()
  345. <:#240,9025><:f200,2Times New Roman,>InsertMenu(1, 3, "HTM&L")
  346. <:#240,9025><:f200,2Times New Roman,>AddCascadeMenu(1, "HTM&L", "Elements")<:f>
  347. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!ParaStyle"<:f>
  348. <:#240,9025><:f200,2Times New Roman,>AddMenuItem(1, "HTM&L", "<:f><:f200,2Times New Roman,>Paragraph Style<:f><:f200,2Times New Roman,>", Macro, "Select Paragraph Style")<:f>
  349. <:#240,9025><:f200,2Times New Roman,>AddCascadeMenu(1, "HTM&L", "Text Styles")<:f>
  350. <:#240,9025><:f200,2Times New Roman,>AddCascadeMenu(1, "HTM&L", "Text Effects")<:f>
  351. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!BackGround"<:f>
  352. <:f200,2Times New Roman,>AddMenuItem(1, "HTM&L", "<:f><:f200,2Times New Roman,>Set Background etc.<:f><:f200,2Times New Roman,>    F12", Macro, "Set Background Image and colours<:f><:f200,2Times New Roman,>")<:f>
  353. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!ConvertFile"<:f>
  354. <:#240,9025><:f200,2Times New Roman,>AddMenuItem(1, "HTM&L", "<:f><:f200,2Times New Roman,>Convert File    ^ + SHIFT C<:f><:f200,2Times New Roman,>", Macro, "Convert file<:f><:f200,2Times New Roman,> to HTML<:f><:f200,2Times New Roman,>")<:f>
  355. <:#240,9025><:f200,2Times New Roman,>'Macro="{MacFile}!TestDoc"<:f>
  356. <:#240,9025><:f200,2Times New Roman,>'AddMenuItem(1, "HTM&L", "<:f><:f200,2Times New Roman,>Test File 
  357.         ^ + SHIFT T<:f><:f200,2Times New Roman,>", Macro, "<:f><:f200,2Times New Roman,>Test HTML file with browser<:f><:f200,2Times New Roman,>")<:f>
  358. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!Options<:f><:f200,2Times New Roman,>"<:f>
  359. <:#240,9025><:f200,2Times New Roman,>AddMenuItem(1, "HTM&L", "<:f><:f200,2Times New Roman,>Set Options<:f><:f200,2Times New Roman,>    ^ + SHIFT O<:f><:f200,2Times New Roman,>", Macro, "<:f><:f200,2Times New Roman,>Set Options<:f><:f200,2Times New Roman,>")<:f>
  360. <:#240,9025><:f200,2Times New Roman,>
  361. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddHREF"<:f>
  362. <:#480,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Elements", "Add HREF Anchor     ^ + SHIFT H", Macro, "Add HREF Anchor")
  363. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddName"<:f>
  364. <:#480,9025><:f200,2Times New Roman,>Add<:f><:f200,2Times New Roman,>Cascade<:f><:f200,2Times New Roman,>MenuItem(1, "HTM&L",<:f><:f200,2Times New Roman,> "Elements", 
  365. <:f><:f200,2Times New Roman,> "Add NAME Anchor<:f><:f200,2Times New Roman,>    ^ + SHIFT N<:f><:f200,2Times New Roman,>", Macro, "Add NAME Anchor")
  366. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddImage"<:f>
  367. <:#240,9025><:f200,2Times New Roman,>Add<:f><:f200,2Times New Roman,>Cascade<:f><:f200,2Times New Roman,>MenuItem(1, "HTM&L",<:f><:f200,2Times New Roman,> "Elements", 
  368. <:f><:f200,2Times New Roman,> "Add IMAGE    <:f><:f200,2Times New Roman,>^ + SHIFT I<:f><:f200,2Times New Roman,>", Macro, "Add IMAGE")
  369. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddAddress"<:f>
  370. <:#480,9025><:f200,2Times New Roman,>Add<:f><:f200,2Times New Roman,>Cascade<:f><:f200,2Times New Roman,>MenuItem(1, "HTM&L",<:f><:f200,2Times New Roman,> "Elements", 
  371. <:f><:f200,2Times New Roman,> "Add ADDRESS    <:f><:f200,2Times New Roman,>^ + SHIFT A<:f><:f200,2Times New Roman,>", Macro, "Add Address")
  372. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddRule"<:f>
  373. <:#480,9025><:f200,2Times New Roman,>Add<:f><:f200,2Times New Roman,>Cascade<:f><:f200,2Times New Roman,>MenuItem(1, "HTM&L",<:f><:f200,2Times New Roman,> "Elements", 
  374. <:f><:f200,2Times New Roman,> "<:f><:f200,2Times New Roman,>Add RULE 
  375. <:f><:f200,2Times New Roman,>    ^ + SHIFT R<:f><:f200,2Times New Roman,>", Macro, "Add Horizontal Rule")<:f>
  376. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddBreak"<:f>
  377. <:#480,9025><:f200,2Times New Roman,>Add<:f><:f200,2Times New Roman,>Cascade<:f><:f200,2Times New Roman,>MenuItem(1, "HTM&L",<:f><:f200,2Times New Roman,> "Elements", 
  378. <:f><:f200,2Times New Roman,> "<:f><:f200,2Times New Roman,>Add BREAK 
  379. <:f><:f200,2Times New Roman,>    ^ + SHIFT B<:f><:f200,2Times New Roman,>", Macro, "Add Line Break")<:f>
  380. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddNOBR"<:f>
  381. <:#240,9025><:f200,2Times New Roman,>Add<:f><:f200,2Times New Roman,>Cascade<:f><:f200,2Times New Roman,>MenuItem(1, "HTM&L",<:f><:f200,2Times New Roman,> "Elements", 
  382. <:f><:f200,2Times New Roman,> "<:f><:f200,2Times New Roman,>Add NOBR  
  383. <:f><:f200,2Times New Roman,>    <:f><:f200,2Times New Roman,>", Macro, "Add No Break Tag")<:f>
  384. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddWBR"<:f>
  385. <:#240,9025><:f200,2Times New Roman,>Add<:f><:f200,2Times New Roman,>Cascade<:f><:f200,2Times New Roman,>MenuItem(1, "HTM&L",<:f><:f200,2Times New Roman,> "Elements", 
  386. <:f><:f200,2Times New Roman,> "<:f><:f200,2Times New Roman,>Add WBR  
  387. <:f><:f200,2Times New Roman,>    <:f><:f200,2Times New Roman,>", Macro, "Add Word Break Tag")<:f>
  388. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddAuthor"<:f>
  389. <:#480,9025><:f200,2Times New Roman,>Add<:f><:f200,2Times New Roman,>Cascade<:f><:f200,2Times New Roman,>MenuItem(1, "HTM&L",<:f><:f200,2Times New Roman,> "Elements", 
  390. <:f><:f200,2Times New Roman,> "<:f><:f200,2Times New Roman,>Add Author    ^ + SHIFT A<:f><:f200,2Times New Roman,>", Macro, "<:f><:f200,2Times New Roman,>Add Author to text<:f><:f200,2Times New Roman,>")<:f>
  391. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddComment"<:f>
  392. <:#240,9025><:f200,2Times New Roman,>Add<:f><:f200,2Times New Roman,>Cascade<:f><:f200,2Times New Roman,>MenuItem(1, "HTM&L",<:f><:f200,2Times New Roman,> "Elements", 
  393. <:f><:f200,2Times New Roman,> "<:f><:f200,2Times New Roman,>Add Comment<:f><:f200,2Times New Roman,>", Macro, "<:f><:f200,2Times New Roman,>Add Comment/Note to text<:f><:f200,2Times New Roman,>")<:f>
  394. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddDateTime"<:f>
  395. <:#240,9025><:f200,2Times New Roman,>Add<:f><:f200,2Times New Roman,>Cascade<:f><:f200,2Times New Roman,>MenuItem(1, "HTM&L",<:f><:f200,2Times New Roman,> "Elements", 
  396. <:f><:f200,2Times New Roman,> "<:f><:f200,2Times New Roman,>Add Date/Time<:f><:f200,2Times New Roman,>", Macro, "<:f><:f200,2Times New Roman,>Add Date/Time to text<:f><:f200,2Times New Roman,>")<:f>
  397. <:#240,9025><:f200,2Times New Roman,>
  398. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!TextStyle(EM)"<:f>
  399. <:#240,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Text Styles", "<:f><:f200,2Times New Roman,>Emphasis<:f><:f200,2Times New Roman,>", Macro, "Emphasis text style")<:f>
  400. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!TextStyle(STRONG)"<:f>
  401. <:#240,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Text Styles", "<:f><:f200,2Times New Roman,>Strong<:f><:f200,2Times New Roman,>", Macro, "Strong text style")<:f>
  402. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!TextStyle(CODE)"<:f>
  403. <:#240,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Text Styles", "<:f><:f200,2Times New Roman,>Code<:f><:f200,2Times New Roman,>", Macro, "Code listings style")<:f>
  404. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!TextStyle(SAMP)"<:f>
  405. <:#240,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Text Styles", "<:f><:f200,2Times New Roman,>Sample<:f><:f200,2Times New Roman,>", Macro, "Sample text style")<:f>
  406. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!TextStyle(KBD)"<:f>
  407. <:#240,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Text Styles", "<:f><:f200,2Times New Roman,>KBD<:f><:f200,2Times New Roman,>", Macro, "Text typed by user")<:f>
  408. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!TextStyle(VAR)"<:f>
  409. <:#240,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Text Styles", "<:f><:f200,2Times New Roman,>VAR<:f><:f200,2Times New Roman,>", Macro, "A variable name")<:f>
  410. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!TextStyle(DFN)"<:f>
  411. <:#240,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Text Styles", "<:f><:f200,2Times New Roman,>DFN<:f><:f200,2Times New Roman,>", Macro, "The defining instance of a term")<:f>
  412. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!TextStyle(CITE)"<:f>
  413. <:#240,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Text Styles", "<:f><:f200,2Times New Roman,>CITE<:f><:f200,2Times New Roman,>", Macro, "A citation")<:f>
  414. <:#240,9025><:f200,2Times New Roman,>
  415. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!TextEffects(""BOLD"")"<:f>
  416. <:#240,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Text <:f><:f200,2Times New Roman,>Effects<:f><:f200,2Times New Roman,>", "<:f><:f200,2Times New Roman,>BOLD<:f><:f200,2Times New Roman,>", Macro, "Bold text")<:f>
  417. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!TextEffects(""ITALIC"")"<:f>
  418. <:#240,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Text <:f><:f200,2Times New Roman,>Effects<:f><:f200,2Times New Roman,>", "<:f><:f200,2Times New Roman,>ITALIC<:f><:f200,2Times New Roman,>", Macro, "Italic text")<:f>
  419. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!Text<:f><:f200,2Times New Roman,>Effects<:f><:f200,2Times New Roman,>(""PITCH"")"<:f>
  420. <:#480,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Text Effects", "<:f><:f200,2Times New Roman,>Toggle Pitch 
  421. <:f><:f200,2Times New Roman,>", Macro, "Toggle between fixed and variable pitch")<:f>
  422. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!TextEffects<:f><:f200,2Times New Roman,>(""BLINK"")"<:f>
  423. <:#240,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Text Effects", "<:f><:f200,2Times New Roman,>BLINK<:f><:f200,2Times New Roman,>", Macro, "Blinking text")<:f>
  424. <:#240,9025><:f200,2Times New Roman,>
  425. <:#240,9025><:f200,2Times New Roman,>END FUNCTION
  426. <:f200,2Times New Roman,><:p<* >>
  427. <:#240,9025><:f200,2Times New Roman,255,0,0>'Function called when closing an HTML document<:f>
  428. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  429. <:#240,9025><:f200,2Times New Roman,>
  430. <:#240,9025><:f200,2Times New Roman,>Function CloseHTML()
  431. <:#240,9025><:f200,2Times New Roman,>
  432. <:#240,9025><:f200,2Times New Roman,>NumGlobs = GetGlobalVarCount()
  433. <:#240,9025><:f200,2Times New Roman,>IF NumGlobs=0 EXIT FUNCTION
  434. <:#240,9025><:f200,2Times New Roman,>ENDIF
  435. <:#240,9025><:f200,2Times New Roman,>DIM TempArray(Numglobs)
  436. <:#240,9025><:f200,2Times New Roman,>GetGlobalVarNames(&TempArray)
  437. <:#240,9025><:f200,2Times New Roman,>Active=0
  438. <:#240,9025><:f200,2Times New Roman,>FOR i = 1 to NumGlobs
  439. <:#240,9025><:f200,2Times New Roman,>   IF TempArray(i)="HTMLActive" Active=1
  440. <:#240,9025><:f200,2Times New Roman,>   ENDIF
  441. <:#240,9025><:f200,2Times New Roman,>NEXT
  442. <:#240,9025><:f200,2Times New Roman,>IF Active=1
  443. <:#240,9025><:f200,2Times New Roman,>  N=GetGlobalVar$("HTMLDocs")
  444. <:#240,9025><:f200,2Times New Roman,>  IF N<;>1 
  445. <:#240,9025><:f200,2Times New Roman,>    N=N - 1
  446. <:#240,9025><:f200,2Times New Roman,>    SetGlobalVar("HTMLDocs", N)
  447. <:#240,9025><:f200,2Times New Roman,>    EXIT FUNCTION
  448. <:#240,9025><:f200,2Times New Roman,>  ENDIF
  449. <:#240,9025><:f200,2Times New Roman,>  CALL WriteHREF()<:f>
  450. <:#240,9025><:f200,2Times New Roman,>  CALL WriteIMAGES()<:f>
  451. <:#240,9025><:f200,2Times New Roman,>  TEMP$=GetGlobalVar$("HTMLDir")
  452. <:#240,9025><:f200,2Times New Roman,>  <:f><:f200,2Times New Roman,>WriteProfileString("HTML", "HTMLDir" ,TEMP$, "AMIPRO.INI")<:f>
  453. <:#240,9025><:f200,2Times New Roman,>  TEMP$=GetGlobalVar$("HTMLNetScape")
  454. <:#240,9025><:f200,2Times New Roman,>  <:f><:f200,2Times New Roman,>WriteProfileString("HTML", "HTMLNetScape" ,TEMP$, "AMIPRO.INI")<:f>
  455. <:#240,9025><:f200,2Times New Roman,>  FreeGlobalVar("HTMLDocs")
  456. <:#240,9025><:f200,2Times New Roman,>  FreeGlobalVar("HTMLActive")
  457. <:#240,9025><:f200,2Times New Roman,>  FreeGlobalVar("PastURLs")<:f>
  458. <:#240,9025><:f200,2Times New Roman,>  FreeGlobalVar("PastImages")<:f>
  459. <:#240,9025><:f200,2Times New Roman,>  FreeGlobalVar("HTMLDir")
  460. <:#240,9025><:f200,2Times New Roman,>  CALL DelVariable("HTMLNetScape")
  461. <:#240,9025><:f200,2Times New Roman,>  CALL <:f><:f200,2Times New Roman,>Del<:f><:f200,2Times New Roman,>Variable("<:f><:f200,2Times New Roman,>ConvertDialog")<:f>
  462. <:#240,9025><:f200,2Times New Roman,>  CALL <:f><:f200,2Times New Roman,>Del<:f><:f200,2Times New Roman,>Variable("<:f><:f200,2Times New Roman,>BRClear")<:f>
  463. <:#240,9025><:f200,2Times New Roman,>  CALL <:f><:f200,2Times New Roman,>Del<:f><:f200,2Times New Roman,>Variable("<:f><:f200,2Times New Roman,>HRThick")<:f>
  464. <:#240,9025><:f200,2Times New Roman,>  CALL <:f><:f200,2Times New Roman,>Del<:f><:f200,2Times New Roman,>Variable("<:f><:f200,2Times New Roman,>HRAlign")<:f>
  465. <:#240,9025><:f200,2Times New Roman,>  CALL <:f><:f200,2Times New Roman,>Del<:f><:f200,2Times New Roman,>Variable("<:f><:f200,2Times New Roman,>HRWidth")<:f>
  466. <:#240,9025><:f200,2Times New Roman,>  CALL <:f><:f200,2Times New Roman,>Del<:f><:f200,2Times New Roman,>Variable("<:f><:f200,2Times New Roman,>HRShade")<:f>
  467. <:#240,9025><:f200,2Times New Roman,>  CALL DelVariable("<:f><:f200,2Times New Roman,>AuthNoComma")<:f>
  468. <:#240,9025><:f200,2Times New Roman,>  CALL DelVariable("<:f><:f200,2Times New Roman,>AuthNoRule")<:f>
  469. <:#240,9025><:f200,2Times New Roman,>  CALL DelVariable("ImgHSPACE")
  470. <:#240,9025><:f200,2Times New Roman,>  CALL <:f><:f200,2Times New Roman,>Del<:f><:f200,2Times New Roman,>Variable("ImgVSPACE")<:f>
  471. <:#240,9025><:f200,2Times New Roman,>  CALL <:f><:f200,2Times New Roman,>Del<:f><:f200,2Times New Roman,>Variable("ImgWIDTH")
  472. <:#240,9025><:f200,2Times New Roman,>  CALL <:f><:f200,2Times New Roman,>Del<:f><:f200,2Times New Roman,>Variable("ImgHEIGHT")<:f>
  473. <:#240,9025><:f200,2Times New Roman,>  CALL <:f><:f200,2Times New Roman,>Del<:f><:f200,2Times New Roman,>Variable("ImgBORDER")<:f>
  474. <:#240,9025><:f200,2Times New Roman,>  DeleteMenu(1, "HTM&L") 
  475. <:#240,9025><:f200,2Times New Roman,>ENDIF
  476. <:#240,9025><:f200,2Times New Roman,>END FUNCTION
  477. <:#240,9025><:f200,2Times New Roman,>
  478. <:#240,9025><:f200,2Times New Roman,>FUNCTION DelVariable(Name)
  479. <:#240,9025><:f200,2Times New Roman,>  TEMP$=GetGlobalVar$(Name)
  480. <:#240,9025><:f200,2Times New Roman,>  <:f><:f200,2Times New Roman,>WriteProfileString("HTML", Name ,TEMP$, "AMIPRO.INI")<:f>
  481. <:#240,9025><:f200,2Times New Roman,>  FreeGlobalVar(Name)<:f>
  482. <:#240,9025><:f200,2Times New Roman,>END FUNCTION
  483. <:#240,9025><:f200,2Times New Roman,>
  484. <:#240,9025><:f200,2Times New Roman,>
  485. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  486. <:#240,9025><:f200,2Times New Roman,>
  487. <:#240,9025><:f200,2Times New Roman,>Function WriteHREF()
  488. <:#240,9025><:f200,2Times New Roman,>
  489. <:#240,9025><:f200,2Times New Roman,>for I=1 To 10 
  490. <:#240,9025><:f200,2Times New Roman,>  URL$=GetGlobalArray$("PastURLs", I)
  491. <:#240,9025><:f200,2Times New Roman,>  WriteProfileString("HTML", "URL{I}" ,URL$, "AMIPRO.INI")
  492. <:#240,9025><:f200,2Times New Roman,>Next
  493. <:#240,9025><:f200,2Times New Roman,>End Function
  494. <:#240,9025><:f200,2Times New Roman,>
  495. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  496. <:#240,9025><:f200,2Times New Roman,>
  497. <:#240,9025><:f200,2Times New Roman,>Function WriteIMAGES()
  498. <:#240,9025><:f200,2Times New Roman,>
  499. <:#240,9025><:f200,2Times New Roman,>for I=1 To 10 
  500. <:#240,9025><:f200,2Times New Roman,>  IMAGE$=GetGlobalArray$("PastImages", I)
  501. <:#240,9025><:f200,2Times New Roman,>  WriteProfileString("HTML", "IMAGE{I}" ,IMAGE$, "AMIPRO.INI")
  502. <:#240,9025><:f200,2Times New Roman,>Next
  503. <:#240,9025><:f200,2Times New Roman,>End Function<:f>
  504. <:f200,2Times New Roman,><:p<* >>
  505. <:#240,9025><:f200,2Times New Roman,255,0,0>'Function to add a HREF anchor<:f>
  506. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  507. <:#240,9025><:f200,2Times New Roman,>
  508. <:#240,9025><:f200,2Times New Roman,>FUNCTION AddHREF()
  509. <:#240,9025><:f200,2Times New Roman,>DIM Previous(10)
  510. <:#240,9025><:f200,2Times New Roman,>DEFSTR Name, Color, Size, Family;
  511. <:#240,9025><:f200,2Times New Roman,>
  512. <:#240,9025><:f200,2Times New Roman,>GetCurFontInfo(&Name,&Color,&Size,&Family)
  513. <:#240,9025><:f200,2Times New Roman,>for I=1 to 10
  514. <:#240,9025><:f200,2Times New Roman,> Previous(I) = GetGlobalArray$("PastURLs",I)
  515. <:#240,9025><:f200,2Times New Roman,> if Previous(I)<<<;>""  FillEdit(9000, Previous(I))
  516. <:#240,9025><:f200,2Times New Roman,> endif
  517. <:#240,9025><:f200,2Times New Roman,>next 
  518. <:#240,9025><:f200,2Times New Roman,>FillEdit(8000,Previous(1))
  519. <:#240,9025><:f200,2Times New Roman,>box=DialogBox("." "ADDHREF")
  520. <:#240,9025><:f200,2Times New Roman,> if box <<<;>1
  521. <:#240,9025><:f200,2Times New Roman,> Exit Function
  522. <:#240,9025><:f200,2Times New Roman,>ENDIF
  523. <:#240,9025><:f200,2Times New Roman,>Text=CurShade$()
  524. <:#240,9025><:f200,2Times New Roman,>IF Text<<<;>"" Cut()
  525. <:#240,9025><:f200,2Times New Roman,>ENDIF
  526. <:#240,9025><:f200,2Times New Roman,>URL$=GetDialogField$(8000)
  527. <:#240,9025><:f200,2Times New Roman,>Field="<<A HREF=""{URL$}""<;>"
  528. <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, 255, 200)
  529. <:#240,9025><:f200,2Times New Roman,>Type(Field)
  530. <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, Color, Size)
  531. <:#240,9025><:f200,2Times New Roman,>Type(Text)
  532. <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, 255, 200)
  533. <:#240,9025><:f200,2Times New Roman,>Type("<</A<;>")
  534. <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, Color, Size)<:f>
  535. <:#240,9025><:f200,2Times New Roman,>
  536. <:#240,9025><:f200,2Times New Roman,>Match=0
  537. <:#240,9025><:f200,2Times New Roman,>for I=1 to 10
  538. <:#240,9025><:f200,2Times New Roman,>  if Previous(I)=URL$  Match=1
  539. <:#240,9025><:f200,2Times New Roman,>  endif
  540. <:#240,9025><:f200,2Times New Roman,>next
  541. <:#240,9025><:f200,2Times New Roman,>if Match=0
  542. <:#240,9025><:f200,2Times New Roman,>  for I=10 to 2 step -1
  543. <:#240,9025><:f200,2Times New Roman,>    N=I - 1
  544. <:#240,9025><:f200,2Times New Roman,>    SetGlobalArray("PastURLs", I, Previous(N))
  545. <:#240,9025><:f200,2Times New Roman,>  next
  546. <:#240,9025><:f200,2Times New Roman,>  SetGlobalArray("PastURLs", 1,  URL$)
  547. <:#240,9025><:f200,2Times New Roman,>endif
  548. <:#240,9025><:f200,2Times New Roman,>  
  549. <:#240,9025><:f200,2Times New Roman,>
  550. <:#240,9025><:f200,2Times New Roman,>end function
  551. <:#240,9025><:f200,2Times New Roman,>
  552. <:#293,9025>DIALOG    ADDHREF
  553. <:#293,9025>-2134900736    5    46    60    212    162    ""    ""    "AddHREF"
  554. <:#293,9025>21    10    40    10    1000    1342177280    "static"    "Enter URL:"    0 
  555. <:#293,9025>50    134    40    14    1    1342373889    "button"    "OK"    0 
  556. <:#293,9025>114    134    40    14    2    1342373888    "button"    "Cancel"    0 
  557. <:#293,9025>22    22    170    12    8000    1350631552    "edit"    ""    0 
  558. <:#293,9025>22    44    170    78    9000    1352728577    "listbox"    ""    0 
  559. <:#293,9025>END DIALOG
  560. <:f200,2Times New Roman,><:p<* >>
  561. <:#240,9025><:f200,2Times New Roman,255,0,0>'Function to add your Name and Email<:f>
  562. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  563. <:#240,9025><:f200,2Times New Roman,>FUNCTION AddAuthor()
  564. <:#240,9025><:f200,2Times New Roman,>DEFSTR Name, Color, Size, Family;<:f>
  565. <:#240,9025><:f200,2Times New Roman,>
  566. <:#240,9025><:f200,2Times New Roman,>GetCurFontInfo(&Name,&Color,&Size,&Family)<:f>
  567. <:#240,9025><:f200,2Times New Roman,>UserName=Get<:f><:f200,2Times New Roman,>ProfileString$("HTML","UserName","AMIPRO.INI")
  568. <:#240,9025><:f200,2Times New Roman,>FillEdit(8000,UserName)
  569. <:#240,9025><:f200,2Times New Roman,>UserEmail=<:f><:f200,2Times New Roman,>Get<:f><:f200,2Times New Roman,>ProfileString$("HTML","UserEmail","AMIPRO.INI")<:f>
  570. <:#240,9025><:f200,2Times New Roman,>FillEdit(8001,UserEmail)<:f>
  571. <:#240,9025><:f200,2Times New Roman,>UserHome=<:f><:f200,2Times New Roman,>Get<:f><:f200,2Times New Roman,>ProfileString$("HTML","UserHome","AMIPRO.INI")<:f>
  572. <:#240,9025><:f200,2Times New Roman,>FillEdit(8002,UserHome)<:f>
  573. <:#240,9025><:f200,2Times New Roman,>NoComma=GetGlobalVar$("AuthNoComma")
  574. <:#240,9025><:f200,2Times New Roman,>FillEdit(20,NoComma)<:f>
  575. <:#240,9025><:f200,2Times New Roman,>NoRule=GetGlobalVar$("AuthNoRule")
  576. <:#240,9025><:f200,2Times New Roman,>FillEdit(21,NoRule)<:f>
  577. <:#240,9025><:f200,2Times New Roman,>
  578. <:#240,9025><:f200,2Times New Roman,>box=DialogBox("." "ADDAUTHOR")
  579. <:#240,9025><:f200,2Times New Roman,>IF box <<<;>1
  580. <:#240,9025><:f200,2Times New Roman,> Exit Function
  581. <:#240,9025><:f200,2Times New Roman,>ENDIF
  582. <:#240,9025><:f200,2Times New Roman,>
  583. <:#240,9025><:f200,2Times New Roman,>UserName=GetDialogField$(8000)<:f>
  584. <:#240,9025><:f200,2Times New Roman,>UserEmail=GetDialogField$(8001)<:f>
  585. <:#240,9025><:f200,2Times New Roman,>UserHome=GetDialogField$(8002)<:f>
  586. <:#240,9025><:f200,2Times New Roman,>NoRule=GetDialogField$(21)<:f>
  587. <:#240,9025><:f200,2Times New Roman,>NoComma=GetDialogField$(20)<:f>
  588. <:#240,9025><:f200,2Times New Roman,>IF NoRule=0
  589. <:#240,9025><:f200,2Times New Roman,>    Field="<:f><:f200,2Times New Roman,><<HR<;><[>Enter]<:f><:f200,2Times New Roman,>"
  590. <:#240,9025><:f200,2Times New Roman,>ELSE
  591. <:#240,9025><:f200,2Times New Roman,>    Field=""<:f>
  592. <:#240,9025><:f200,2Times New Roman,>ENDIF
  593. <:#240,9025><:f200,2Times New Roman,>Field="<:f><:f200,2Times New Roman,>{Field}<<A HREF=""{UserHome}""<;>"
  594. <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, 255, 200)
  595. <:#240,9025><:f200,2Times New Roman,>Type(Field)
  596. <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, Color, Size)
  597. <:#240,9025><:f200,2Times New Roman,>Type(UserName)
  598. <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, 255, 200)
  599. <:#240,9025><:f200,2Times New Roman,>IF NoComma=0
  600. <:#240,9025><:f200,2Times New Roman,>    ComStr="<:f><:f200,2Times New Roman,>,<:f><:f200,2Times New Roman,>"
  601. <:#240,9025><:f200,2Times New Roman,>ELSE
  602. <:#240,9025><:f200,2Times New Roman,>    ComStr=""<:f>
  603. <:#240,9025><:f200,2Times New Roman,>ENDIF<:f>
  604. <:#240,9025><:f200,2Times New Roman,>Type("<:f><:f200,2Times New Roman,><</A<;>{ComStr}<<ADDRESS<;>")
  605. <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, Color, Size)<:f>
  606. <:#240,9025><:f200,2Times New Roman,>Type(UserEmail)
  607. <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, 255, 200)
  608. <:#240,9025><:f200,2Times New Roman,>Type("<</ADDRESS<;>")<:f>
  609. <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, Color, Size)<:f>
  610. <:#240,9025><:f200,2Times New Roman,>WriteProfileString("HTML","UserName","{UserName}","AMIPRO.INI")<:f>
  611. <:#240,9025><:f200,2Times New Roman,>WriteProfileString("HTML","UserEmail","{UserEmail}","AMIPRO.INI")<:f>
  612. <:#240,9025><:f200,2Times New Roman,>WriteProfileString("HTML","UserHome","{UserHome}","AMIPRO.INI")<:f>
  613. <:#240,9025><:f200,2Times New Roman,>SetGlobalVar("AuthNoComma",NoComma)<:f>
  614. <:#240,9025><:f200,2Times New Roman,>SetGlobalVar("AuthNoRule",NoRule)<:f>
  615. <:#240,9025><:f200,2Times New Roman,>END FUNCTION<:f>
  616. <:#293,9025>
  617. <:#293,9025>DIALOG    ADDAUTHOR
  618. <:#293,9025>-2134376448    10    76    56    212    126    ""    ""    "Add Author"
  619. <:#293,9025>53    7    148    12    8000    1350631552    "edit"    ""    0 
  620. <:#293,9025>9    8    40    10    1000    1342177280    "static"    "Your Name:"    0 
  621. <:#293,9025>53    27    148    12    8001    1350631552    "edit"    ""    0 
  622. <:#586,9025>10    24    40    18    1001    1342177280    "static"    "Your e-mail address:"    0 
  623. <:#293,9025>53    48    148    12    8002    1350631552    "edit"    ""    0 
  624. <:#586,9025>10    45    40    17    1002    1342177280    "static"    "Your home page URL:"    0 
  625. <:#293,9025>56    96    40    14    1    1342373889    "button"    "OK"    0 
  626. <:#293,9025>120    96    40    14    3    1342373888    "button"    "Cancel"    0 
  627. <:#293,9025>118    72    76    12    20    1342242819    "button"    "Suppress comma"    0 
  628. <:#293,9025>26    72    70    12    21    1342242819    "button"    "Suppress <<HR<;>"    0 
  629. <:#293,9025>END DIALOG
  630. <:f200,2Times New Roman,><:p<* >><:f><:f200,2Times New Roman,255,0,0>'Function to add a Comment<:f>
  631. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  632. <:#240,9025><:f200,2Times New Roman,>FUNCTION AddComment()<:f><-">
  633. <:#240,9025><:f200,2Times New Roman,>Insert<:f><:f200,2Times New Roman,>Note("")
  634. <:#240,9025><:f200,2Times New Roman,>END FUNCTION
  635. <:#240,9025><:f200,2Times New Roman,255,0,0>
  636. <:#240,9025><:f200,2Times New Roman,255,0,0>'Function to add Time/Date<:f>
  637. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  638. <:#240,9025><:f200,2Times New Roman,>FUNCTION AddDateTime()<:f><-">
  639. <:#240,9025><:f200,2Times New Roman,>Insert<:f><:f200,2Times New Roman,>Variable
  640. <:#240,9025><:f200,2Times New Roman,>END FUNCTION<:f>
  641. <:p<* >>
  642. <:#240,9025><:f200,2Times New Roman,255,0,0>'Function to add a NAME anchor<:f>
  643. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  644. <:#240,9025><:f200,2Times New Roman,>FUNCTION AddName()
  645. <:#240,9025><:f200,2Times New Roman,>DEFSTR Name, Color, Size, Family;
  646. <:#240,9025><:f200,2Times New Roman,>
  647. <:#240,9025><:f200,2Times New Roman,>GetCurFontInfo(&Name,&Color,&Size,&Family)
  648. <:#240,9025><:f200,2Times New Roman,>box=DialogBox("." "ADDNAME")
  649. <:#240,9025><:f200,2Times New Roman,>IF box <<<;>1
  650. <:#240,9025><:f200,2Times New Roman,> Exit Function
  651. <:#240,9025><:f200,2Times New Roman,>ENDIF
  652. <:#240,9025><:f200,2Times New Roman,>Text=CurShade$()
  653. <:#240,9025><:f200,2Times New Roman,>IF Text<<<;>"" Cut()
  654. <:#240,9025><:f200,2Times New Roman,>ENDIF
  655. <:#240,9025><:f200,2Times New Roman,>Name$=GetDialogField$(8000)
  656. <:#240,9025><:f200,2Times New Roman,>Field="<<A NAME=""{Name$}""<;>"
  657. <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, 255, 200)
  658. <:#240,9025><:f200,2Times New Roman,>'FieldAdd(Field)
  659. <:#240,9025><:f200,2Times New Roman,>Type(Field)
  660. <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, Color, Size)
  661. <:#240,9025><:f200,2Times New Roman,>Type(Text)
  662. <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, 255, 200)
  663. <:#240,9025><:f200,2Times New Roman,>Type("<</A<;>")
  664. <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, Color, Size)<:f>
  665. <:#240,9025><:f200,2Times New Roman,>
  666. <:#240,9025><:f200,2Times New Roman,>end function
  667. <:#240,9025><:f200,2Times New Roman,>
  668. <:#240,9025><:f200,2Times New Roman,>DIALOG    ADDNAME
  669. <:#240,9025><:f200,2Times New Roman,>-2134900736    4    91    54    160    90    ""    ""    "Add Name"
  670. <:#240,9025><:f200,2Times New Roman,>34    17    92    12    8000    1350631552    "edit"    ""    0 
  671. <:#240,9025><:f200,2Times New Roman,>28    49    40    14    1    1342373889    "button"    "OK"    0 
  672. <:#240,9025><:f200,2Times New Roman,>90    49    40    14    2    1342373888    "button"    "Cancel"    0 
  673. <:#240,9025><:f200,2Times New Roman,>36    5    75    10    1000    1342177280    "static"    "Anchor name:"    0 
  674. <:#240,9025><:f200,2Times New Roman,>END DIALOG
  675. <:f200,2Times New Roman,><:p<* >><:f><:f200,2Times New Roman,255,0,0>'Use Dialog to select text type<:f>
  676. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  677. <:#240,9025><:f200,2Times New Roman,>FUNCTION IconTextStyle()
  678. <:#240,9025><:f200,2Times New Roman,>
  679. <:#240,9025><:f200,2Times New Roman,>box=DialogBox("." "TextTypes")
  680. <:#240,9025><:f200,2Times New Roman,>IF (box =0) OR (box=14)
  681. <:#240,9025><:f200,2Times New Roman,> Exit Function
  682. <:#240,9025><:f200,2Times New Roman,>ENDIF<:f>
  683. <:#240,9025><:f200,2Times New Roman,>
  684. <:#240,9025><:f200,2Times New Roman,>SWITCH box
  685. <:#240,9025><:f200,2Times New Roman,>    CASE 1
  686. <:#240,9025><:f200,2Times New Roman,>        VAR$="EM"
  687. <:#240,9025><:f200,2Times New Roman,>    CASE 9
  688. <:#240,9025><:f200,2Times New Roman,>        VAR$="STRONG"<:f>
  689. <:#240,9025><:f200,2Times New Roman,>    CASE 3
  690. <:#240,9025><:f200,2Times New Roman,>        VAR$="CODE"<:f>
  691. <:#240,9025><:f200,2Times New Roman,>    CASE 4
  692. <:#240,9025><:f200,2Times New Roman,>        VAR$="SAMP"<:f>
  693. <:#240,9025><:f200,2Times New Roman,>    CASE 5
  694. <:#240,9025><:f200,2Times New Roman,>        VAR$="KBD"<:f>
  695. <:#240,9025><:f200,2Times New Roman,>    CASE 6
  696. <:#240,9025><:f200,2Times New Roman,>        VAR$="VAR"<:f>
  697. <:#240,9025><:f200,2Times New Roman,>    CASE 7
  698. <:#240,9025><:f200,2Times New Roman,>        VAR$="DFN"<:f>
  699. <:#240,9025><:f200,2Times New Roman,>    CASE 8
  700. <:#240,9025><:f200,2Times New Roman,>        VAR$="CITE"<:f>
  701. <:#240,9025><:f200,2Times New Roman,>ENDSWITCH
  702. <:#240,9025><:f200,2Times New Roman,>CALL TextStyle(VAR$)<:f>
  703. <:#240,9025><:f200,2Times New Roman,>END FUNCTION
  704. <:#240,9025><:f200,2Times New Roman,>
  705. DIALOG    TextTypes
  706. -2134376448    17    110    54    186    150    ""    ""    "Select Text Type"
  707. 12    10    40    10    1    1342373888    "button"    "EM"    0 
  708. 12    80    40    10    6    1342373888    "button"    "VAR"    0 
  709. 12    24    40    10    2    1342373888    "button"    "STRONG"    0 
  710. 12    38    40    10    3    1342373888    "button"    "CODE"    0 
  711. 12    52    40    10    4    1342373888    "button"    "SAMP"    0 
  712. 12    66    40    10    5    1342373888    "button"    "KBD"    0 
  713. 12    94    40    10    7    1342373888    "button"    "DFN"    0 
  714. 12    108    40    10    8    1342373888    "button"    "CITE"    0 
  715. 54    10    92    10    1000    1342177280    "static"    "Emphasis, typically italic"    0 
  716. 54    24    118    10    1001    1342177280    "static"    "Stronger emphasis, typically bold"    0 
  717. 72    124    40    14    14    1342373888    "button"    "CANCEL"    0 
  718. 54    38    118    10    1002    1342177280    "static"    "Example of code."    0 
  719. 54    52    118    10    1003    1342177280    "static"    "A sequence of literal characters"    0 
  720. 54    66    130    10    1004    1342177280    "static"    "Keys typed - in an instruction manual"    0 
  721. <:#293,9025>54    80    118    10    1005    1342177280    "static"    "A variable name"    0 
  722. 54    94    118    10    1006    1342177280    "static"    "The defining instance of a term"    0 
  723. 54    108    118    10    1007    1342177280    "static"    "A citation, typically italic"    0 
  724. END DIALOG
  725. <:f200,2Times New Roman,>
  726. <:f200,2Times New Roman,255,0,0>'Function to add a ADDRESS tag<:f>
  727. <:f200,2Times New Roman,>'***************************************************************************************<:f>
  728. <:f200,2Times New Roman,>FUNCTION AddAddress()
  729. <:f200,2Times New Roman,>DEFSTR Name, Color, Size, Family;
  730. <:f200,2Times New Roman,>
  731. <:f200,2Times New Roman,>GetCurFontInfo(&Name,&Color,&Size,&Family)
  732. <:f200,2Times New Roman,>Text=CurShade$()
  733. <:f200,2Times New Roman,>IF Text<<<;>"" Cut()
  734. <:f200,2Times New Roman,>ENDIF
  735. <:f200,2Times New Roman,>Field="<<ADDRESS<;>"
  736. <:f200,2Times New Roman,>FontChange(Name, Family, 255, 200)
  737. <:f200,2Times New Roman,>Type(Field)
  738. <:f200,2Times New Roman,>FontChange(Name, Family, Color, Size)
  739. <:f200,2Times New Roman,>Type(Text)
  740. <:f200,2Times New Roman,>FontChange(Name, Family, 255, 200)
  741. <:f200,2Times New Roman,>Type("<</ADDRESS<;>")
  742. <:f200,2Times New Roman,>FontChange(Name, Family, Color, Size)<:f>
  743. <:f200,2Times New Roman,>
  744. <:f200,2Times New Roman,>end function
  745. <:f200,2Times New Roman,>
  746. <:f200,2Times New Roman,><:p<* >>
  747. <:#240,9025><:f200,2Times New Roman,255,0,0>'Function to add an image<:f>
  748. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  749. <:#240,9025><:f200,2Times New Roman,>
  750. <:#240,9025><:f200,2Times New Roman,>FUNCTION AddImage()
  751. <:#240,9025><:f200,2Times New Roman,>DIM Previous(10)<:f>
  752. <:#240,9025><:f200,2Times New Roman,>DEFSTR Name, Color, Size, Family;
  753. <:#240,9025><:f200,2Times New Roman,>
  754. <:#240,9025><:f200,2Times New Roman,>GetCurFontInfo(&Name,&Color,&Size,&Family)
  755. <:#240,9025><:f200,2Times New Roman,>for I=1 to 10<:f>
  756. <:#240,9025><:f200,2Times New Roman,> Previous(I) = GetGlobalArray$("PastImages",I)
  757. <:#240,9025><:f200,2Times New Roman,> if Previous(I)<<<;>""  FillEdit(9000, Previous(I))
  758. <:#240,9025><:f200,2Times New Roman,> endif
  759. <:#240,9025><:f200,2Times New Roman,>next <:f>
  760. <:#240,9025><:f200,2Times New Roman,>FillEdit(9500,"BOTTOM")
  761. <:#240,9025><:f200,2Times New Roman,>FillEdit(9500,"MIDDLE")
  762. <:#240,9025><:f200,2Times New Roman,>FillEdit(9500,"TOP")
  763. <:#240,9025><:f200,2Times New Roman,>NetScape=GetGlobalVar$("HTMLNetScape")
  764. <:#240,9025><:f200,2Times New Roman,>IF NetScape=1
  765. <:#240,9025><:f200,2Times New Roman,>    FillEdit(9500,"LEFT")
  766. <:#240,9025><:f200,2Times New Roman,>    FillEdit(9500,"RIGHT")
  767. <:#240,9025><:f200,2Times New Roman,>    FillEdit(9500,"TEXTTOP")<:f>
  768. <:#240,9025><:f200,2Times New Roman,>    FillEdit(9500,"ABSMIDDLE")
  769. <:#240,9025><:f200,2Times New Roman,>    FillEdit(9500,"BASELINE")
  770. <:#240,9025><:f200,2Times New Roman,>    FillEdit(9500,"ABSBOTTOM")<:f>
  771. <:#240,9025><:f200,2Times New Roman,>    TEMP$=GetGlobalVar$("ImgWIDTH")
  772. <:#240,9025><:f200,2Times New Roman,>    FillEdit(8002,TEMP$)<:f>
  773. <:#240,9025><:f200,2Times New Roman,>    TEMP$=GetGlobalVar$("ImgHEIGHT")
  774. <:#240,9025><:f200,2Times New Roman,>    FillEdit(8003,TEMP$)<:f>
  775. <:#240,9025><:f200,2Times New Roman,>    TEMP$=GetGlobalVar$("ImgBORDER")
  776. <:#240,9025><:f200,2Times New Roman,>    FillEdit(8004,TEMP$)<:f>
  777. <:#240,9025><:f200,2Times New Roman,>    TEMP$=GetGlobalVar$("ImgVSPACE")
  778. <:#240,9025><:f200,2Times New Roman,>    FillEdit(8005,TEMP$)<:f>
  779. <:#240,9025><:f200,2Times New Roman,>    TEMP$=GetGlobalVar$("ImgHSPACE")
  780. <:#240,9025><:f200,2Times New Roman,>    FillEdit(8006,TEMP$)<:f>
  781. <:#240,9025><:f200,2Times New Roman,>    box=DialogBox("." "ADDIMAGE2")
  782. <:#240,9025><:f200,2Times New Roman,>    IF box <<<;>1
  783. <:#240,9025><:f200,2Times New Roman,>     Exit Function
  784. <:#240,9025><:f200,2Times New Roman,>    ENDIF<:f>
  785. <:#240,9025><:f200,2Times New Roman,>ELSE
  786. <:#240,9025><:f200,2Times New Roman,>    box=DialogBox("." "ADDIMAGE1")
  787. <:#240,9025><:f200,2Times New Roman,>    IF box <<<;>1
  788. <:#240,9025><:f200,2Times New Roman,>     Exit Function
  789. <:#240,9025><:f200,2Times New Roman,>    ENDIF
  790. <:#240,9025><:f200,2Times New Roman,>ENDIF<:f>
  791. <:#240,9025><:f200,2Times New Roman,>URL$=GetDialogField$(8000)
  792. <:#240,9025><:f200,2Times New Roman,>ALT$=GetDialogField$(8001)<:f>
  793. <:#240,9025><:f200,2Times New Roman,>ALT2$=""
  794. <:#240,9025><:f200,2Times New Roman,>IF ALT$<<<;>""    ALT2$="  ALT=""{ALT$}"""
  795. <:#240,9025><:f200,2Times New Roman,>ENDIF
  796. <:#240,9025><:f200,2Times New Roman,>ALIGN$=GetDialogField$(9500)
  797. <:#240,9025><:f200,2Times New Roman,>IF GetDialogField$(23)=1 ISMAP$=" ISMAP"
  798. <:#240,9025><:f200,2Times New Roman,>ELSE ISMAP$=""
  799. <:#240,9025><:f200,2Times New Roman,>ENDIF
  800. <:#240,9025><:f200,2Times New Roman,>Extra$=""
  801. <:#240,9025><:f200,2Times New Roman,>IF NetScape=1<:f>
  802. <:#240,9025><:f200,2Times New Roman,>    TEMP$=GetDialogField$(8002)
  803. <:#240,9025><:f200,2Times New Roman,>    SetGlobalVar("ImgWIDTH",TEMP$)
  804. <:#240,9025><:f200,2Times New Roman,>    IF TEMP$<<<;>"" Extra$="{Extra$} WIDTH=""{TEMP$}"""
  805. <:#240,9025><:f200,2Times New Roman,>    ENDIF
  806. <:#240,9025><:f200,2Times New Roman,>    TEMP$=GetDialogField$(8003)
  807. <:#240,9025><:f200,2Times New Roman,>    SetGlobalVar("ImgHEIGHT",TEMP$)<:f>
  808. <:#240,9025><:f200,2Times New Roman,>    IF TEMP$<<<;>"" Extra$="{Extra$} HEIGHT=""{TEMP$}"""<:f>
  809. <:#240,9025><:f200,2Times New Roman,>    ENDIF<:f>
  810. <:#240,9025><:f200,2Times New Roman,>    TEMP$=GetDialogField$(8004)
  811. <:#240,9025><:f200,2Times New Roman,>    SetGlobalVar("ImgBORDER",TEMP$)<:f>
  812. <:#240,9025><:f200,2Times New Roman,>    IF TEMP$<<<;>"" Extra$="{Extra$} BORDER=""{TEMP$}"""
  813. <:#240,9025><:f200,2Times New Roman,>    ENDIF<:f>
  814. <:#240,9025><:f200,2Times New Roman,>    TEMP$=GetDialogField$(8005)
  815. <:#240,9025><:f200,2Times New Roman,>    SetGlobalVar("ImgVSPACE",TEMP$)<:f>
  816. <:#240,9025><:f200,2Times New Roman,>    IF TEMP$<<<;>"" Extra$="{Extra$} VSPACE=""{TEMP$}"""<:f>
  817. <:#240,9025><:f200,2Times New Roman,>    E<:f><:f200,2Times New Roman,>NDIF<:f>
  818. <:#240,9025><:f200,2Times New Roman,>    TEMP$=GetDialogField$(8006)
  819. <:#240,9025><:f200,2Times New Roman,>    SetGlobalVar("ImgHSPACE",TEMP$)<:f>
  820. <:#240,9025><:f200,2Times New Roman,>    IF TEMP$<<<;>"" Extra$="{Extra$} HSPACE=""{TEMP$}"""<:f>
  821. <:#240,9025><:f200,2Times New Roman,>    <:f><:f200,2Times New Roman,>ENDIF
  822. <:#240,9025><:f200,2Times New Roman,>ENDIF
  823. <:#240,9025><:f200,2Times New Roman,>Field="<<IMG SRC=""{URL$}""{ALT2$} ALIGN={ALIGN$}<:f><:f200,2Times New Roman,>{Extra$}<:f><:f200,2Times New Roman,>{ISMAP$}<:f><:f200,2Times New Roman,><;>"
  824. <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, 255, 200)
  825. <:#240,9025><:f200,2Times New Roman,>Type(Field)
  826. <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, Color, Size)
  827. <:#240,9025><:f200,2Times New Roman,>
  828. <:#240,9025><:f200,2Times New Roman,>Match=0
  829. <:#240,9025><:f200,2Times New Roman,>for I=1 to 10
  830. <:#240,9025><:f200,2Times New Roman,>  if Previous(I)=URL$  Match=1
  831. <:#240,9025><:f200,2Times New Roman,>  endif
  832. <:#240,9025><:f200,2Times New Roman,>next
  833. <:#240,9025><:f200,2Times New Roman,>if Match=0
  834. <:#240,9025><:f200,2Times New Roman,>  for I=10 to 2 step -1
  835. <:#240,9025><:f200,2Times New Roman,>    N=I - 1
  836. <:#240,9025><:f200,2Times New Roman,>    SetGlobalArray("PastImages", I, Previous(N))
  837. <:#240,9025><:f200,2Times New Roman,>  next
  838. <:#240,9025><:f200,2Times New Roman,>  SetGlobalArray("PastImages", 1,  URL$)
  839. <:#240,9025><:f200,2Times New Roman,>endif<:f>
  840. <:#240,9025><:f200,2Times New Roman,>
  841. <:#240,9025><:f200,2Times New Roman,>end function
  842. <:#240,9025><:f200,2Times New Roman,>
  843. <:#293,9025>DIALOG    ADDIMAGE1
  844. <:#293,9025>-2134900736    10    66    34    262    176    ""    ""    "Add Image"
  845. <:#586,9025>22    16    88    10    1000    1342177280    "static"    "Enter URL of image file:"    0 
  846. <:#293,9025>174    92    64    40    9500    1344274434    "combobox"    ""    0 
  847. <:#293,9025>138    92    36    10    1001    1342177280    "static"    "Alignment:"    0 
  848. <:#293,9025>76    92    52    12    8001    1350631552    "edit"    ""    0 
  849. <:#586,9025>22    90    50    28    1002    1342177280    "static"    "Text displayed on text based browsers:"    0 
  850. <:#586,9025>22    120    100    10    23    1342242819    "button"    "Picture is a sensitive map"    0 
  851. <:#293,9025>84    144    40    14    1    1342373889    "button"    "OK"    0 
  852. <:#293,9025>140    144    40    14    2    1342373888    "button"    "Cancel"    0 
  853. <:#293,9025>22    28    216    12    8000    1350631552    "edit"    ""    0 
  854. <:#293,9025>22    42    216    40    9000    1352728577    "listbox"    ""    0 
  855. <:#293,9025>END DIALOG
  856. <:#293,9025>
  857. <:#293,9025>DIALOG    ADDIMAGE2
  858. <:#293,9025>-2134900736    20    68    38    262    204    ""    ""    "Add Image"
  859. <:#586,9025>22    8    88    10    1000    1342177280    "static"    "Enter URL of image file:"    0 
  860. <:#293,9025>144    76    64    40    9500    1344274434    "combobox"    ""    0 
  861. <:#293,9025>108    78    36    10    1001    1342177280    "static"    "Alignment:"    0 
  862. <:#293,9025>148    118    60    12    8001    1350631552    "edit"    ""    0 
  863. <:#293,9025>108    116    36    18    1002    1342177280    "static"    "Alternative Text:"    0 
  864. <:#586,9025>110    142    100    12    23    1342242819    "button"    "Picture is a sensitive map"    0 
  865. <:#293,9025>84    172    40    14    1    1342373889    "button"    "OK"    0 
  866. <:#293,9025>140    172    40    14    2    1342373888    "button"    "Cancel"    0 
  867. <:#293,9025>22    18    214    12    8000    1350631552    "edit"    ""    0 
  868. <:#293,9025>22    32    214    40    9000    1352728577    "listbox"    ""    0 
  869. <:#293,9025>50    108    40    12    8002    1350631552    "edit"    ""    0 
  870. <:#293,9025>50    124    40    12    8003    1350631552    "edit"    ""    0 
  871. <:#293,9025>50    140    40    12    8004    1350631552    "edit"    ""    0 
  872. <:#293,9025>50    76    40    12    8005    1350631552    "edit"    ""    0 
  873. <:#293,9025>50    92    40    12    8006    1350631552    "edit"    ""    0 
  874. <:#293,9025>22    110    22    10    1003    1342177280    "static"    "Width"    0 
  875. <:#293,9025>22    126    22    10    1006    1342177280    "static"    "Height"    0 
  876. <:#293,9025>22    142    24    10    1007    1342177280    "static"    "Border"    0 
  877. <:#293,9025>22    78    26    10    1008    1342177280    "static"    "VSpace"    0 
  878. <:#293,9025>22    94    26    10    1009    1342177280    "static"    "HSpace"    0 
  879. <:#293,9025>END DIALOG
  880. <:f,2Times New Roman,><:p<* >>
  881. <:#240,9025><:f200,2Times New Roman,255,0,0>'Function to add a Tag<:f>
  882. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  883. <:#240,9025><:f200,2Times New Roman,>FUNCTION AddTag(TagName)<:f>
  884. <:#240,9025><:f200,2Times New Roman,>DEFSTR Name, Color, Size, Family;
  885. <:#240,9025><:f200,2Times New Roman,>
  886. <:#240,9025><:f200,2Times New Roman,>GetCurFontInfo(&Name,&Color,&Size,&Family)
  887. <:#240,9025><:f200,2Times New Roman,>Field="{TagName}<:f><:f200,2Times New Roman,>"
  888. <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, 255, 200)
  889. <:#240,9025><:f200,2Times New Roman,>Type(Field)
  890. <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, Color, Size)<:f>
  891. <:#240,9025><:f200,2Times New Roman,>END FUNCTION<:f>
  892. <:#240,9025><:f200,2Times New Roman,>
  893. <:#240,9025><:f200,2Times New Roman,255,0,0>
  894. <:#240,9025><:f200,2Times New Roman,255,0,0>'Function to add a Horizontal Rule<:f>
  895. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  896. <:#240,9025><:f200,2Times New Roman,>FUNCTION AddRule()<:f>
  897. <:#240,9025><:f200,2Times New Roman,>NetScape=GetGlobalVar$("HTMLNetScape")
  898. <:#240,9025><:f200,2Times New Roman,>IF NetScape=1<:f>
  899. <:#240,9025><:f200,2Times New Roman,>    Extra$=""
  900. <:#240,9025><:f200,2Times New Roman,>    TEMP$=GetGlobalVar$("HRThick")
  901. <:#240,9025><:f200,2Times New Roman,>    IF TEMP$<<<;>"" Extra$="{Extra$} SIZE=""{TEMP$}"""
  902. <:#240,9025><:f200,2Times New Roman,>    ENDIF
  903. <:#240,9025><:f200,2Times New Roman,>    TEMP$=GetGlobalVar$("HRWidth")
  904. <:#240,9025><:f200,2Times New Roman,>    IF TEMP$<<<;>"" Extra$="{Extra$} WIDTH=""{TEMP$}"""
  905. <:#240,9025><:f200,2Times New Roman,>    ENDIF<:f>
  906. <:#240,9025><:f200,2Times New Roman,>    TEMP$=GetGlobalVar$("HRAlign")
  907. <:#240,9025><:f200,2Times New Roman,>    IF TEMP$<<<;>"" Extra$="{Extra$} ALIGN=""{TEMP$}"""
  908. <:#240,9025><:f200,2Times New Roman,>    ENDIF<:f>
  909. <:#240,9025><:f200,2Times New Roman,>    NoShade=GetGlobalVar$("HRShade")
  910. <:#240,9025><:f200,2Times New Roman,>    IF NoShade=1 Extra$="{Extra$} NOSHADE"
  911. <:#240,9025><:f200,2Times New Roman,>    ENDIF<:f>
  912. <:#240,9025><:f200,2Times New Roman,>    AddTag("<<HR{Extra$}<;><[>Enter]")
  913. <:#240,9025><:f200,2Times New Roman,>ELSE
  914. <:#240,9025><:f200,2Times New Roman,>    AddTag("<<HR<;><:f><:f200,2Times New Roman,><[>Enter]<:f><:f200,2Times New Roman,>")<:f>
  915. <:#240,9025><:f200,2Times New Roman,>ENDIF
  916. <:#240,9025><:f200,2Times New Roman,>END FUNCTION
  917. <:#240,9025><:f200,2Times New Roman,>
  918. <:#293,9025>
  919. <:#240,9025><:f200,2Times New Roman,255,0,0>'Function to add a line break<:f>
  920. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  921. <:#240,9025><:f200,2Times New Roman,>FUNCTION AddBreak()<:f>
  922. <:#240,9025><:f200,2Times New Roman,>NetScape=GetGlobalVar$("HTMLNetScape")
  923. <:#240,9025><:f200,2Times New Roman,>IF NetScape=1<:f>
  924. <:#240,9025><:f200,2Times New Roman,>    Extra$=""
  925. <:#240,9025><:f200,2Times New Roman,>    TEMP$=GetGlobalVar$("BRClear")
  926. <:#240,9025><:f200,2Times New Roman,>    IF (TEMP$<<<;>"<<NULL<;>")AND(<:f><:f200,2Times New Roman,>TEMP$<<<;>"")<:f><:f200,2Times New Roman,> Extra$="{Extra$} CLEAR=""{TEMP$}"""
  927. <:#240,9025><:f200,2Times New Roman,>    ENDIF<:f>
  928. <:#240,9025><:f200,2Times New Roman,>    AddTag("<<BR{Extra$}<;><:f><:f200,2Times New Roman,><[>Enter]<:f><:f200,2Times New Roman,>")<:f>
  929. <:#240,9025><:f200,2Times New Roman,>ELSE
  930. <:#240,9025><:f200,2Times New Roman,>    AddTag("<<BR<;><:f><:f200,2Times New Roman,><[>Enter]<:f><:f200,2Times New Roman,>")<:f>
  931. <:#240,9025><:f200,2Times New Roman,>ENDIF
  932. <:#240,9025><:f200,2Times New Roman,>END FUNCTION
  933. <:#240,9025><:f200,2Times New Roman,>
  934. <:#293,9025>
  935. <:#240,9025><:f200,2Times New Roman,255,0,0>'Function to add a no break<:f>
  936. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  937. <:#240,9025><:f200,2Times New Roman,>FUNCTION AddNOBR()<:f>
  938. <:#240,9025><:f200,2Times New Roman,>CALL TextStyle<:f200,2Times New Roman,>("NOBR<:f><:f200,2Times New Roman,>")<:f>
  939. <:#240,9025><:f200,2Times New Roman,>END FUNCTION
  940. <:#240,9025><:f200,2Times New Roman,>
  941. <:#293,9025>
  942. <:#240,9025><:f200,2Times New Roman,255,0,0>'Function to add a word break<:f>
  943. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  944. <:#240,9025><:f200,2Times New Roman,>
  945. <:#240,9025><:f200,2Times New Roman,>FUNCTION AddWBR()<:f>
  946. <:#240,9025><:f200,2Times New Roman,>AddTag("<<WBR<;><:f><:f200,2Times New Roman,>")<:f>
  947. <:#240,9025><:f200,2Times New Roman,>END FUNCTION
  948. <:#240,9025><:f200,2Times New Roman,>
  949. <:p<* >>
  950. <:#240,9025><:f200,2Times New Roman,255,0,0>'Toggle between fixed to variable pitch text<:f>
  951. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  952. <:#240,9025><:f200,2Times New Roman,>
  953. <:#240,9025><:f200,2Times New Roman,>FUNCTION TextEffects( Effect )<:f>
  954. <:#240,9025><:f200,2Times New Roman,>DEFSTR Name, Color, Size, Family;
  955. <:#240,9025><:f200,2Times New Roman,>
  956. <:#240,9025><:f200,2Times New Roman,>Effect=lcase$(Effect)
  957. <:#240,9025><:f200,2Times New Roman,>SWITCH Effect
  958. <:#240,9025><:f200,2Times New Roman,>    CASE "bold"
  959. <:#240,9025><:f200,2Times New Roman,>        Bo<:f200,2Times New Roman,>ld()
  960. <:#240,9025><:f200,2Times New Roman,>    CASE "italic"
  961. <:#240,9025><:f200,2Times New Roman,>        Italic()
  962. <:#240,9025><:f200,2Times New Roman,>    CASE "pitch"
  963. <:#240,9025><:f200,2Times New Roman,>          GetCurFontInfo(&Name,&Color,&Size,&Family)<:f>
  964. <:#240,9025><:f200,2Times New Roman,>          IF Name="Times New Roman" Name="Courier New"
  965. <:#240,9025><:f200,2Times New Roman,>          ELSE <:f><:f200,2Times New Roman,> Name="Times New Roman" 
  966. <:#240,9025><:f200,2Times New Roman,>        ENDIF
  967. <:#240,9025><:f200,2Times New Roman,>        FontChange(Name, Family, Color, Size)<:f>
  968. <:#240,9025><:f200,2Times New Roman,>    CASE "blink"
  969. <:#240,9025><:f200,2Times New Roman,>        <:f><:f200,2Times New Roman,> CALL TextStyle("BLINK")<:f>
  970. <:#240,9025><:f200,2Times New Roman,>ENDSWITCH
  971. <:#240,9025><:f200,2Times New Roman,>END FUNCTION
  972. <:#240,9025><:f200,2Times New Roman,255,0,0>
  973. <:#240,9025><:f200,2Times New Roman,255,0,0>
  974. <:#240,9025><:f200,2Times New Roman,255,0,0>'Insert text styles<:f>
  975. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  976. <:#240,9025><:f200,2Times New Roman,>
  977. <:#240,9025><:f200,2Times New Roman,>FUNCTION TextStyle( Style)<:f>
  978. <:#240,9025><:f200,2Times New Roman,>DEFSTR Name, Color, Size, Family;
  979. <:#240,9025><:f200,2Times New Roman,>
  980. <:#240,9025><:f200,2Times New Roman,>GetCurFontInfo(&Name,&Color,&Size,&Family)<:f>
  981. <:#240,9025><:f200,2Times New Roman,>Text=CurShade$()
  982. <:#240,9025><:f200,2Times New Roman,>IF Text<<<;>"" Cut()
  983. <:#240,9025><:f200,2Times New Roman,>ENDIF
  984. <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, 255, 200)
  985. <:#240,9025><:f200,2Times New Roman,>Type("<<{Style}<;>")
  986. <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, Color, Size)
  987. <:#240,9025><:f200,2Times New Roman,>Type(Text)
  988. <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, 255, 200)
  989. <:#240,9025><:f200,2Times New Roman,>Type("<</{Style}<;>")<:f>
  990. <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, Color, Size)<:f>
  991. <:#240,9025><:f200,2Times New Roman,>
  992. <:#240,9025><:f200,2Times New Roman,>END FUNCTION
  993. <:#240,9025><:f200,2Times New Roman,>
  994. <:#240,9025><:f200,2Times New Roman,>
  995. <:#240,9025><:f200,2Times New Roman,255,0,0>'Change paragraph style<:f>
  996. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  997. <:#240,9025><:f200,2Times New Roman,>FUNCTION ParaStyle()
  998. <:#240,9025><:f200,2Times New Roman,>
  999. <:#240,9025><:f200,2Times New Roman,>SelectStyle
  1000. <:#240,9025><:f200,2Times New Roman,>
  1001. <:f200,2Times New Roman,>END FUNCTION<:p<* >><:f><:f200,2Times New Roman,255,0,0>'Set Options<:f>
  1002. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  1003. <:#240,9025><:f200,2Times New Roman,>FUNCTION Options()
  1004. <:#240,9025><:f200,2Times New Roman,>
  1005. <:#240,9025><:f200,2Times New Roman,>Options=0
  1006. <:#240,9025><:f200,2Times New Roman,>TEMP$=<:f><:f200,2Times New Roman,>GetGlobalVar$("HRAlign<:f><:f200,2Times New Roman,>")<:f>
  1007. <:#240,9025><:f200,2Times New Roman,>FillEdit(9500,TEMP$)<:f><:f200,2Times New Roman,> 
  1008. <:f200,2Times New Roman,255,0,0>        'Fill Alignment List<:f>
  1009. <:#240,9025><:f200,2Times New Roman,>IF TEMP$<<<;> "LEFT" FillEdit(9500,"LEFT<:f><:f200,2Times New Roman,>") ENDIF<:f>
  1010. <:#240,9025><:f200,2Times New Roman,>IF TEMP$<<<;> "RIGHT" FillEdit(9500,"RIGHT<:f><:f200,2Times New Roman,>") ENDIF<:f>
  1011. <:#240,9025><:f200,2Times New Roman,>IF TEMP$<<<;> "CENTER" FillEdit(9500,"CENTER<:f><:f200,2Times New Roman,>") ENDIF<:f>
  1012. <:#240,9025><:f200,2Times New Roman,>
  1013. <:#240,9025><:f200,2Times New Roman,>TEMP$=<:f><:f200,2Times New Roman,>GetGlobalVar$("BRClear<:f><:f200,2Times New Roman,>")<:f>
  1014. <:#240,9025><:f200,2Times New Roman,>FillEdit(9501,TEMP$)<:f><:f200,2Times New Roman,>    <:f200,2Times New Roman,255,0,0>    'Fill Clear List<:f>
  1015. <:#240,9025><:f200,2Times New Roman,>IF TEMP$<<<;> "<<NULL<;>" FillEdit(9501,"<<NULL<;>") ENDIF<:f>
  1016. <:#240,9025><:f200,2Times New Roman,>IF TEMP$<<<;> "ALL" <:f><:f200,2Times New Roman,>FillEdit(9501,"ALL")<:f><:f200,2Times New Roman,> ENDIF<:f>
  1017. <:#240,9025><:f200,2Times New Roman,>IF TEMP$<<<;> "RIGHT" <:f><:f200,2Times New Roman,>FillEdit(9501,"RIGHT<:f><:f200,2Times New Roman,>")<:f><:f200,2Times New Roman,> ENDIF<:f>
  1018. <:#240,9025><:f200,2Times New Roman,>IF TEMP$<<<;> "LEFT" <:f><:f200,2Times New Roman,>FillEdit(9501,"LEFT")<:f><:f200,2Times New Roman,> ENDIF<:f>
  1019. <:#240,9025><:f200,2Times New Roman,>
  1020. <:#240,9025><:f200,2Times New Roman,>TEMP$=GetGlobalVar$("HTMLNetScape")
  1021. <:#240,9025><:f200,2Times New Roman,>FillEdit(23,TEMP$)<:f>
  1022. <:#240,9025><:f200,2Times New Roman,>TEMP$=GetGlobalVar$("HRShade")
  1023. <:#240,9025><:f200,2Times New Roman,>FillEdit(25,TEMP$)<:f>
  1024. <:#240,9025><:f200,2Times New Roman,>'TEMP$=GetProfileString$(<:f><:f200,2Times New Roman,>"HTML", "HTMLBrowser", "AMIPRO.INI")<:f>
  1025. <:#240,9025><:f200,2Times New Roman,>'FillEdit(8000,TEMP$)<:f>
  1026. <:#240,9025><:f200,2Times New Roman,>TEMP$=GetGlobalVar$("HRThick")
  1027. <:#240,9025><:f200,2Times New Roman,>FillEdit(8001,TEMP$)<:f>
  1028. <:#240,9025><:f200,2Times New Roman,>TEMP$=GetGlobalVar$("HRWidth")
  1029. <:#240,9025><:f200,2Times New Roman,>FillEdit(8002,TEMP$)<:f>
  1030. <:#240,9025><:f200,2Times New Roman,>TEMP$=GetGlobalVar$("ConvertDialog")
  1031. <:#240,9025><:f200,2Times New Roman,>FillEdit(20,TEMP$)<:f>
  1032. <:#240,9025><:f200,2Times New Roman,0,0,0>
  1033. <:#240,9025><:f200,2Times New Roman,>box=DialogBox("." "OPTIONS")<:f>
  1034. <:#240,9025><:f200,2Times New Roman,>IF box<<<;>1
  1035. <:#240,9025><:f200,2Times New Roman,>     EXIT FUNCTION
  1036. <:#240,9025><:f200,2Times New Roman,>ENDIF
  1037. <:#240,9025><:f200,2Times New Roman,>
  1038. <:#240,9025><:f200,2Times New Roman,>TEMP$=GetDialogField$(9500)
  1039. <:#240,9025><:f200,2Times New Roman,>SetGlobalVar("HRAlign",TEMP$)
  1040. <:#240,9025><:f200,2Times New Roman,>TEMP$=GetDialogField$(9501)
  1041. <:#240,9025><:f200,2Times New Roman,>SetGlobalVar("BRClear",TEMP$)<:f>
  1042. <:#240,9025><:f200,2Times New Roman,>'TEMP$=GetDialogField$(8000)
  1043. <:#240,9025><:f200,2Times New Roman,>'WriteProfileString("HTML","HTMLBrowser",TEMP$,"AMIPRO.INI")<:f>
  1044. <:#240,9025><:f200,2Times New Roman,>TEMP$=GetDialogField$(8001)
  1045. <:#240,9025><:f200,2Times New Roman,>SetGlobalVar("HRThick",TEMP$)<:f>
  1046. <:#240,9025><:f200,2Times New Roman,>TEMP$=GetDialogField$(8002)
  1047. <:#240,9025><:f200,2Times New Roman,>SetGlobalVar("HRWidth",TEMP$)<:f>
  1048. <:#240,9025><:f200,2Times New Roman,>TEMP$=GetDialogField$(25)
  1049. <:#240,9025><:f200,2Times New Roman,>SetGlobalVar("HRShade",TEMP$)<:f>
  1050. <:#240,9025><:f200,2Times New Roman,>TEMP$=GetDialogField$(23)
  1051. <:#240,9025><:f200,2Times New Roman,>SetGlobalVar("HTMLNetScape",TEMP$)<:f>
  1052. <:#240,9025><:f200,2Times New Roman,>TEMP$=GetDialogField$(20)
  1053. <:#240,9025><:f200,2Times New Roman,>SetGlobalVar("ConvertDialog",TEMP$)<:f>
  1054. <:#240,9025><:f200,2Times New Roman,>Options=1
  1055. <:#240,9025><:f200,2Times New Roman,>END FUNCTION
  1056. <:#240,9025><:f200,2Times New Roman,>
  1057. <:#240,9025><:f200,2Times New Roman,>
  1058. <:#240,9025><:f200,2Times New Roman,>
  1059. <:#278,9025>DIALOG    OPTIONS
  1060. <:#556,9025>-2134376448    15    94    48    254    140    ""    ""    "AmiWeb Options"
  1061. <:#556,9025>132    68    98    12    23    1342242819    "button"    "Use NetScape Extensions"    0 
  1062. <:#278,9025>8    0    116    90    24    1342308359    "button"    "<<HR<;> Options"    0 
  1063. <:#278,9025>20    20    40    10    1000    1342177280    "static"    "Thickness"    0 
  1064. <:#278,9025>20    36    40    10    1001    1342177280    "static"    "Width"    0 
  1065. <:#278,9025>20    52    40    10    1002    1342177280    "static"    "Alignment"    0 
  1066. <:#278,9025>20    66    50    12    25    1342242819    "button"    "No Shade"    0 
  1067. <:#278,9025>60    18    50    12    8001    1350631552    "edit"    ""    0 
  1068. <:#278,9025>60    34    50    12    8002    1350631552    "edit"    ""    0 
  1069. <:#278,9025>60    50    52    40    9500    1344274435    "combobox"    ""    0 
  1070. <:#278,9025>132    2    100    60    26    1342308359    "button"    "<<BR<;> Options"    0 
  1071. <:#278,9025>174    20    52    40    9501    1344274435    "combobox"    ""    0 
  1072. <:#278,9025>138    22    22    10    1003    1342177280    "static"    "Clear"    0 
  1073. <:#278,9025>78    108    40    14    1    1342373889    "button"    "OK"    0 
  1074. <:#278,9025>138    108    40    14    2    1342373888    "button"    "Cancel"    0 
  1075. <:#556,9025>132    80    114    18    20    1342242819    "button"    "Don't show Convert dialog box"    0 
  1076. <:#278,9025>END DIALOG
  1077. <:f200,2Times New Roman,><:p<* >>
  1078. <:#240,9025><:f200,2Times New Roman,255,0,0>'Function to run converter on file<:f>
  1079. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  1080. <:#240,9025><:f200,2Times New Roman,0,0,0>FUNCTION ConvertFile()
  1081. <:#240,9025><:f200,2Times New Roman,0,0,0>
  1082. <:#240,9025><:f200,2Times New Roman,0,0,0>ConvertFile=0
  1083. <:#240,9025><:f200,2Times New Roman,0,0,0>DoDialog=0
  1084. <:#240,9025><:f200,2Times New Roman,0,0,0>FileName$=GetOpenFileName$()
  1085. <:#240,9025><:f200,2Times New Roman,0,0,0>IF FileName$="" 
  1086. <:#240,9025><:f200,2Times New Roman,0,0,0> IF SaveAs <<<;> 1 EXIT FUNCTION
  1087. <:#240,9025><:f200,2Times New Roman,0,0,0> ENDIF
  1088. <:#240,9025><:f200,2Times New Roman,0,0,0>ELSE Save()
  1089. <:#240,9025><:f200,2Times New Roman,0,0,0>ENDIF
  1090. <:#240,9025><:f200,2Times New Roman,0,0,0>DestDir$=GetDocVar("Destination")
  1091. <:#240,9025><:f200,2Times New Roman,0,0,0>IF DestDir$=""
  1092. <:#240,9025><:f200,2Times New Roman,0,0,0>  DoDialog=1
  1093. <:#240,9025><:f200,2Times New Roman,0,0,0>  <:f200,2Times New Roman,0,0,0>DestDir$=GetGlobalVar$("HTMLDir")
  1094. <:#240,9025><:f200,2Times New Roman,0,0,0>  SetDocVar("Destination",DestDir$)
  1095. <:#240,9025><:f200,2Times New Roman,0,0,0>ENDIF
  1096. <:#240,9025><:f200,2Times New Roman,0,0,0>Name$=GetDocVar("DestName")
  1097. <:#240,9025><:f200,2Times New Roman,0,0,0>IF Name$=""
  1098. <:#240,9025><:f200,2Times New Roman,0,0,0>  DoDialog=1
  1099. <:#240,9025><:f200,2Times New Roman,0,0,0>  FileName$=GetOpenFileName$()
  1100. <:#240,9025><:f200,2Times New Roman,0,0,0>  Position=1
  1101. <:#240,9025><:f200,2Times New Roman,0,0,0>  Finished=0
  1102. <:#240,9025><:f200,2Times New Roman,0,0,0>  WHILE Finished=0
  1103. <:#240,9025><:f200,2Times New Roman,0,0,0>    LastPos=Position
  1104. <:#240,9025><:f200,2Times New Roman,0,0,0>    Position=Strchr(Position, FileName$, "\")+1
  1105. <:#240,9025><:f200,2Times New Roman,0,0,0>    IF Position=0 Finished=1
  1106. <:#240,9025><:f200,2Times New Roman,0,0,0>    ENDIF
  1107. <:#240,9025><:f200,2Times New Roman,0,0,0>  WEND<:f>
  1108. <:#240,9025><:f200,2Times New Roman,0,0,0>  NameDot$=MID$(FileName$, LastPos, LEN(FileName$)-LastPos+1)<:f>
  1109. <:#240,9025><:f200,2Times New Roman,0,0,0>  Dot=Strchr(1,NameDot$,".")
  1110. <:#240,9025><:f200,2Times New Roman,0,0,0>  IF Dot<<<;>(-1) <:f200,2Times New Roman,0,0,0> Name$=LEFT$(NameDot$, 
  1111. <:f200,2Times New Roman,0,0,0>Dot+(-1)<:f200,2Times New Roman,0,0,0>)
  1112. <:#240,9025><:f200,2Times New Roman,0,0,0>  ELSE Name$=NameDot$
  1113. <:#240,9025><:f200,2Times New Roman,0,0,0>  ENDIF
  1114. <:#240,9025><:f200,2Times New Roman,0,0,0>  Name$="{Name$}.HTM"<:f>
  1115. <:#240,9025><:f200,2Times New Roman,0,0,0>ENDIF<:f>
  1116. <:#240,9025><:f200,2Times New Roman,0,0,0>
  1117. <:#240,9025><:f200,2Times New Roman,0,0,0>UseBreaks=GetProfileString$("HTML","UseBreaks","AMIPRO.INI")<:f>
  1118. <:#240,9025><:f200,2Times New Roman,0,0,0>NoDialog=GetGlobalVar$("ConvertDialog")
  1119. <:#240,9025><:f200,2Times New Roman,0,0,0>IF(NoDialog="") 
  1120. <:#240,9025><:f200,2Times New Roman,0,0,0>    NoDialog=FALSE
  1121. <:#240,9025><:f200,2Times New Roman,0,0,0>ENDIF
  1122. <:#240,9025><:f200,2Times New Roman,0,0,0>IF (NoDialog=FALSE OR DoDialog=1)
  1123. <:#240,9025><:f200,2Times New Roman,0,0,0>    FillEdit(8001,Name$)
  1124. <:#240,9025><:f200,2Times New Roman,0,0,0>    FillEdit(8000,DestDir$)
  1125. <:#240,9025><:f200,2Times New Roman,0,0,0>    FillEdit(20,UseBreaks)
  1126. <:#240,9025><:f200,2Times New Roman,0,0,0>    IF<:f200,2Times New Roman,0,0,0> DialogBox(".", "CONVERTFILE") <<<;> 1 EXIT FUNCTION
  1127. <:#240,9025><:f200,2Times New Roman,0,0,0>    ENDIF
  1128. <:#240,9025><:f200,2Times New Roman,0,0,0>    Name$=GetDialogField$(8001)
  1129. <:#240,9025><:f200,2Times New Roman,0,0,0>    DestDir$=GetDialogField$(8000)
  1130. <:#240,9025><:f200,2Times New Roman,0,0,0>    UseBreaks=<:f><:f200,2Times New Roman,0,0,0>GetDialogField$(20)<:f>
  1131. <:#240,9025><:f200,2Times New Roman,0,0,0>    WriteProfileString("HTML","UseBreaks",UseBreaks,"AMIPRO.INI")
  1132. <:#240,9025><:f200,2Times New Roman,0,0,0>    IF RIGHT$(DestDir$,1) <<<;> "\" DestDir$="{DestDir$}\"
  1133. <:#240,9025><:f200,2Times New Roman,0,0,0>    ENDIF
  1134. <:#240,9025><:f200,2Times New Roman,0,0,0>ENDIF
  1135. <:#240,9025><:f200,2Times New Roman,0,0,0>SetGlobalVar("HTMLDir",DestDir$)
  1136. <:#240,9025><:f200,2Times New Roman,0,0,0>SetDocVar("Destination",DestDir$)
  1137. <:#240,9025><:f200,2Times New Roman,0,0,0>SetDocVar("DestName",Name$)<:f>
  1138. <:#240,9025><:f200,2Times New Roman,0,0,0>
  1139. <:#240,9025><:f200,2Times New Roman,0,0,0>RetVal=Exec("<++>wn_sm2ht.exe<-+>", "{FileName$} {DestDir$}{Name$}", 1)
  1140. <:#240,9025><:f200,2Times New Roman,0,0,0>IF RetVal<<=31
  1141. <:#240,9025><:f200,2Times New Roman,0,0,0>    SWITCH RetVal
  1142. <:#240,9025><:f200,2Times New Roman,0,0,0>        CASE (0)
  1143. <:#480,9025><:f200,2Times New Roman,0,0,0>        Message("The system is out of memory or resources<:f><:f200,2Times New Roman,0,0,0>- close an application and try again","Error")
  1144. <:#240,9025><:f200,2Times New Roman,0,0,0>        CASE (2)
  1145. <:#240,9025><:f200,2Times New Roman,0,0,0>        Message("Executable file not found<:f><:f200,2Times New Roman,0,0,0>","Error")<:f>
  1146. <:#240,9025><:f200,2Times New Roman,0,0,0>        CASE (3)
  1147. <:#240,9025><:f200,2Times New Roman,0,0,0>        Message("Executable path not found<:f><:f200,2Times New Roman,0,0,0>","Error")<:f>
  1148. <:#240,9025><:f200,2Times New Roman,0,0,0>        CASE (11)
  1149. <:#240,9025><:f200,2Times New Roman,0,0,0>        Message("Bad EXE file<:f><:f200,2Times New Roman,0,0,0>","Error")<:f>
  1150. <:#240,9025><:f200,2Times New Roman,0,0,0>        DEFAULT<:f>
  1151. <:#240,9025><:f200,2Times New Roman,0,0,0>        Message("Unknown Error- {RetVal}","Error")
  1152. <:#240,9025><:f200,2Times New Roman,0,0,0>    ENDSWITCH
  1153. <:#240,9025><:f200,2Times New Roman,0,0,0>ENDIF
  1154. <:#240,9025><:f200,2Times New Roman,0,0,0>ConvertFile=1
  1155. <:f200,2Times New Roman,0,0,0>FileChanged(1,1)
  1156. <:f200,2Times New Roman,0,0,0>END FUNCTION<:f>
  1157. <:#245,9025><:f200,2NewCenturySchlbk,0,0,0>
  1158. <:#245,9025><:f200,2NewCenturySchlbk,0,0,0>
  1159. <:#278,9025>DIALOG    CONVERTFILE
  1160. <:#556,9025>-2134900736    7    108    68    232    94    ""    ""    "Convert to HTML"
  1161. <:#278,9025>16    46    124    12    8000    1350631552    "edit"    ""    0 
  1162. <:#556,9025>16    35    108    10    1000    1342177280    "static"    "Destination Directory:"    0 
  1163. <:#556,9025>15    6    98    10    1001    1342177280    "static"    "Destination Filename:"    0 
  1164. <:#278,9025>16    16    83    12    8001    1350631552    "edit"    ""    0 
  1165. <:#278,9025>175    38    40    14    2    1342373888    "button"    "Cancel"    0 
  1166. <:#278,9025>175    15    40    14    1    1342373889    "button"    "OK"    0 
  1167. <:#556,9025>16    72    100    12    20    1342242819    "button"    "Use <<BR<;>s for linebreaks"    0 
  1168. END DIALOG<:p<* >>
  1169. <:#240,9025><:f200,2Times New Roman,255,0,0>'Background setting<:f>
  1170. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  1171. <:#240,9025><:f200,2Times New Roman,0,0,0>FUNCTION BackGround()
  1172. <:#240,9025><:f200,2Times New Roman,0,0,0>
  1173. <:#240,9025><:f200,2Times New Roman,0,0,0>BGCOLOR$=GetDocVar("BGCOLOR")<:f>
  1174. <:#240,9025><:f200,2Times New Roman,0,0,0>BODYTEXT$=GetDocVar("BODYTEXT<:f><:f200,2Times New Roman,0,0,0>")<:f>
  1175. <:#240,9025><:f200,2Times New Roman,0,0,0>BACKGROUND$=GetDocVar("BACKGROUND<:f><:f200,2Times New Roman,0,0,0>")<:f>
  1176. <:#240,9025><:f200,2Times New Roman,0,0,0>LINKCOL$=GetDocVar("LINKCOL<:f><:f200,2Times New Roman,0,0,0>")<:f>
  1177. <:#240,9025><:f200,2Times New Roman,0,0,0>VLINKCOL$=GetDocVar("VLINKCOL<:f><:f200,2Times New Roman,0,0,0>")<:f>
  1178. <:#240,9025><:f200,2Times New Roman,0,0,0>ALINKCOL$=GetDocVar("ALINKCOL<:f><:f200,2Times New Roman,0,0,0>")<:f>
  1179. <:#240,9025><:f200,2Times New Roman,0,0,0>
  1180. <:#240,9025><:f200,2Times New Roman,0,0,0>FillEdit(8001, BGCOLOR$)<:f>
  1181. <:#240,9025><:f200,2Times New Roman,0,0,0>FillEdit(8002, BODYTEXT$<:f><:f200,2Times New Roman,0,0,0>)<:f>
  1182. <:#240,9025><:f200,2Times New Roman,0,0,0>FillEdit(8003, BACKGROUND$<:f><:f200,2Times New Roman,0,0,0>)<:f>
  1183. <:#240,9025><:f200,2Times New Roman,0,0,0>FillEdit(8004, LINKCOL$<:f><:f200,2Times New Roman,0,0,0>)<:f>
  1184. <:#240,9025><:f200,2Times New Roman,0,0,0>FillEdit(8005, VLINKCOL$<:f><:f200,2Times New Roman,0,0,0>)<:f>
  1185. <:#240,9025><:f200,2Times New Roman,0,0,0>FillEdit(8006, ALINKCOL$<:f><:f200,2Times New Roman,0,0,0>)<:f>
  1186. <:#240,9025><:f200,2Times New Roman,0,0,0>
  1187. <:#240,9025><:f200,2Times New Roman,0,0,0>
  1188. <:#240,9025><:f200,2Times New Roman,0,0,0>IF<:f200,2Times New Roman,0,0,0> DialogBox(".", "ColourSettings") <<<;> 1 EXIT FUNCTION<:f>
  1189. <:#240,9025><:f200,2Times New Roman,>ENDIF
  1190. <:#240,9025><:f200,2Times New Roman,>
  1191. <:#240,9025><:f200,2Times New Roman,>BGCOLOR$ = GetDialogField$(8001)<:f>
  1192. <:#240,9025><:f200,2Times New Roman,>BODYTEXT$ = GetDialogField$(8002)<:f>
  1193. <:#240,9025><:f200,2Times New Roman,>BACKGROUND$ = GetDialogField$(8003)<:f>
  1194. <:#240,9025><:f200,2Times New Roman,>LINKCOL$ = GetDialogField$(8004)<:f>
  1195. <:#240,9025><:f200,2Times New Roman,>VLINKCOL$ = GetDialogField$(8005)<:f>
  1196. <:#240,9025><:f200,2Times New Roman,>ALINKCOL$ = GetDialogField$(8006)<:f>
  1197. <:#240,9025><:f200,2Times New Roman,>
  1198. <:#240,9025><:f200,2Times New Roman,>SetDocVar("BGCOLOR",BGCOLOR$)<:f>
  1199. <:#240,9025><:f200,2Times New Roman,>Set<:f><:f200,2Times New Roman,>DocVar<:f><:f200,2Times New Roman,>("BODYTEXT",BODYTEXT$)<:f>
  1200. <:#240,9025><:f200,2Times New Roman,>Set<:f><:f200,2Times New Roman,>DocVar<:f><:f200,2Times New Roman,>("BACKGROUND",BACKGROUND<:f><:f200,2Times New Roman,>$)<:f>
  1201. <:#240,9025><:f200,2Times New Roman,>Set<:f><:f200,2Times New Roman,>DocVar<:f><:f200,2Times New Roman,>("LINKCOL",LINKCOL<:f><:f200,2Times New Roman,>$)<:f>
  1202. <:#240,9025><:f200,2Times New Roman,>Set<:f><:f200,2Times New Roman,>DocVar<:f><:f200,2Times New Roman,>("VLINKCOL<:f><:f200,2Times New Roman,>",VLINKCOL<:f><:f200,2Times New Roman,>$)<:f>
  1203. <:#240,9025><:f200,2Times New Roman,>Set<:f><:f200,2Times New Roman,>DocVar<:f><:f200,2Times New Roman,>("ALINKCOL<:f><:f200,2Times New Roman,>",ALINKCOL<:f><:f200,2Times New Roman,>$)<:f>
  1204. <:#240,9025><:f200,2Times New Roman,0,0,0>
  1205. <:#240,9025><:f200,2Times New Roman,0,0,0>FileChanged(1,1)<:f>
  1206. <:#240,9025><:f200,2Times New Roman,0,0,0>
  1207. <:#240,9025><:f200,2Times New Roman,>END FUNCTION<:f>
  1208. <:#240,9025><:f200,2Times New Roman,255,0,0>
  1209. <:#278,9025>DIALOG    ColourSettings
  1210. <:#556,9025>-2134900736    14    74    56    212    122    ""    ""    "Colour Settings and Background Image"
  1211. <:#278,9025>50    8    50    12    8001    1350631552    "edit"    ""    0 
  1212. <:#278,9025>50    28    50    12    8002    1350631552    "edit"    ""    0 
  1213. <:#278,9025>8    74    194    12    8003    1350631552    "edit"    ""    0 
  1214. <:#278,9025>152    8    50    12    8004    1350631552    "edit"    ""    0 
  1215. <:#278,9025>152    28    50    12    8005    1350631552    "edit"    ""    0 
  1216. <:#278,9025>152    48    50    12    8006    1350631552    "edit"    ""    0 
  1217. <:#278,9025>58    96    40    14    1    1342373889    "button"    "OK"    0 
  1218. <:#556,9025>6    6    40    16    1000    1342177280    "static"    "Background Colour:"    0 
  1219. <:#278,9025>6    26    38    22    1001    1342177280    "static"    "Body Text Colour:"    0 
  1220. <:#278,9025>108    8    40    10    1002    1342177280    "static"    "Link Colour:"    0 
  1221. <:#556,9025>106    24    44    16    1003    1342177280    "static"    "Visited Link Colour:"    0 
  1222. <:#556,9025>106    46    42    16    1004    1342177280    "static"    "Active Link Colour:"    0 
  1223. <:#556,9025>8    64    80    8    1005    1342177280    "static"    "Background Image URL:"    0 
  1224. <:#278,9025>130    96    40    14    2    1342373888    "button"    "Cancel"    0 
  1225. <:#278,9025>END DIALOG
  1226. <:#240,9025><:f200,2Times New Roman,255,0,0>
  1227. <:#240,9025><:f200,2Times New Roman,255,0,0>
  1228. <:#240,9025><:f200,2Times New Roman,255,0,0>
  1229. <:#279,9025><:f,2TimesNewRomanPS,>
  1230. <:#240,9025><:f200,2Times New Roman,255,0,0>
  1231. <:#240,9025><:f200,2Times New Roman,0,0,0>
  1232. <:f200,2Times New Roman,255,0,0><:p<* >>
  1233. <:#240,9025><:f200,2Times New Roman,255,0,0>'Run browser using this file<:f>
  1234. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  1235. <:#240,9025><:f200,2Times New Roman,>FUNCTION TestDoc()
  1236. <:#240,9025><:f200,2Times New Roman,>
  1237. <:#240,9025><:f200,2Times New Roman,>Browser$= GetProfileString$("HTML", "HTMLBrowser", "AMIPRO.INI")
  1238. <:#240,9025><:f200,2Times New Roman,>WHILE (Browser$="" )
  1239. <:#240,9025><:f200,2Times New Roman,>    Message("You need to setup a web browser under Options","Test Document")
  1240. <:#240,9025><:f200,2Times New Roman,>    IF CALL Options() <<<;> 1    <:f>
  1241. <:#240,9025><:f200,2Times New Roman,>        EXIT FUNCTION
  1242. <:#240,9025><:f200,2Times New Roman,>    ENDIF
  1243. <:#240,9025><:f200,2Times New Roman,>    <:f><:f200,2Times New Roman,>Browser$= GetProfileString$("HTML", "HTMLBrowser", "AMIPRO.INI")<:f>
  1244. <:#240,9025><:f200,2Times New Roman,>WEND
  1245. <:#240,9025><:f200,2Times New Roman,0,0,0>Name$=GetDocVar("DestName")<:f>
  1246. <:#240,9025><:f200,2Times New Roman,0,0,0>DestDir$=GetDocVar("Destination")<:f>
  1247. <:#240,9025><:f200,2Times New Roman,0,0,0>IF Name$="" OR DestDir$=""
  1248. <:#240,9025><:f200,2Times New Roman,0,0,0>    IF CALL ConvertFile() <<<;> 1
  1249. <:#240,9025><:f200,2Times New Roman,0,0,0>        EXIT FUNCTION
  1250. <:#240,9025><:f200,2Times New Roman,0,0,0>    ENDIF
  1251. <:#240,9025><:f200,2Times New Roman,0,0,0>    Name$=GetDocVar("DestName")<:f>
  1252. <:#240,9025><:f200,2Times New Roman,0,0,0>    DestDir$=GetDocVar("Destination")<:f>
  1253. <:#240,9025><:f200,2Times New Roman,>ENDIF
  1254. <:#240,9025><:f200,2Times New Roman,0,0,0>        Message("Blah <:f><:f200,2Times New Roman,>{Browser$}{DestDir$}{Name$}<:f><:f200,2Times New Roman,0,0,0>")<:f>
  1255. <:#240,9025><:f200,2Times New Roman,>Exec("{Browser$}","{DestDir$}{Name$}",1)
  1256. <:#240,9025><:f200,2Times New Roman,>END FUNCTION<:f>
  1257. [Embedded]
  1258. 00083797
  1259.